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READ E DATA 



MENUS E OP COES 




RECUPERACAO DE PALAVRAS 
6 USO DE MACROS 



A IIMSTRUCAO CLEAR 



Apresentamos neste artigo algumas 
funcoes e rotinas relativamente 
simples, que podem facilftar bastante 
as tarefas que envolvem a manipulapao 
de cadeias de caracteres. Conhega-as. 



A maneira mais adequada de armaze- 
nar conjuntos de dados numericos ou al- 
fanuraericos dentro de um programa em 
BASIC consiste em coloca-los em [inhas 
DATA, e le-Ios com comandos READ. 
Porem, quando o numero de dados 
e pequeno, nao compensa introduzi-los 
em linhas DATA e acrescentar ao pro- 
grama comandos destinados a le-los e 
I carrega-los em variaveis indexadas. E 
' muJto mais conveniente colocar os da- 
dos dentro de uma unica variavel string, 
de tal forma que possamos recupera-los 
ou consuka-tos por meio de uma sub- 
rotina ou fungao, 

Esta e tambem a melhor solupao pa- 
ra OS usu^rios de computadores que nao 
dispoem dos comandos READ e DA- 
TA, como OS micros pessoais ZX-81, 



TRINTA DtAS TEM SETEMBRO. 



O programa que se segue exempli fi- 
ca bem o procedimento sugerido. Ele in- 
forma quamos dias tem um determina- 
do mes do ano: 



20 LET C$-"31293130312031313031 

3031" 

40 PRINT -ENTRE NUMERO DO MES 

I 

45 INPUT M 

50 IF M<1 OR M>12 THEN GOTO 40 

60 PRINT "ESTE MES TEM "r 

70 PRINT CS({M-1)*2+1 TO (M-1)* 

2+2) ," DIAS." 

80 GOTO 40 

20 CS=-3129313031303131303I3031 
40 INPUT "ENTRE NUMERO DO MES 



50 IF M<1 OR M>12 THEN GOTO 40 

60 PRINT "ESTE MES TEM "; 

70 PRINT MIDS(CS. (M-1) *2+l,2) ; 

"DIAS." 

BO GOTO 40 

Os numeros de dias referentes a ca- 
da mes sao coloeados na cadeia de ca- 
racteres C$. A fun<;ao da linha 70 extrai 
o mimero de dias do mes M (especifica- 
do no programa de teste, peia entrada 
da linha 40) usando a expressao: 

posipao inicial em MS = (M- l)*2-l- 1 
mimero de dfgitos = 2 

Note que, se M = 1 , a posicao inicial 
em M$ e 1. Esta e uma formula geral, 
que pode ser usada para extrair subca- 
deias de comprimento fixo, concatena- 
dfis em uma unica cadeia. 

Nos computadores que tem fungoes 
programaveis do tipo string, essa f6rmu- 
la pode ser colocada dentro de uma fun- 
(jao, e usada repetidas vezes, como nes- 
te programa: 
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10 DEF FKTSCI.L.S$)-MID$(S$, tl- 

1)*L+1,L) 

20 LET MS-"JANFEVMAHABRMAIJUNJU 

LAGOSETOUTNOVDEZ" 

30 LET CS-"31293130313031313031 

3031" 

40 INPUT -ENTRE NUMERO DO MES 

"iM 
50 IF M<1 OR M>12 THEN GOTO 80 
60 PRINT FNT$(M,3,MS) ;" " " ; FNT 
$(M,2,CS) ;" DIAS." 
70 GOTO 40 

80 PRINT; PRINT "DATA INVALIDA" : 
GOTO 40 



Para executar o programa no Spec- 
trum, subsiitua a linha 10: 

10 DEF FNTS(I,L,SS)=S$( (I-l) *L+ 
1 TO (I-1)«L+L} 

Na fungao FNT$, definida na linha 
10, o priraeiro argumento e o indice; o 
segundo, o tamanho fixo das subcadeias 
e terceiro, o nome da cadeia com os 
dados. Note que a mesma fungao e usa- 



da com duas cadeias de formatos dife- 
rentes, na linha 60 do programa, 

Em computadores que nao aceitam 
funcoes com mais de um argumento, 
pode-se erapregar uma sub-rotina, mais 
longa, mas igualmente litil: 



20 LET MS^'JANFEVMARABRMAIJUNJU 

LAGOSETOUTNOVDEZ - 

30 LET C9-''31293130313031313031 

3031- 

40 INPUT "ENTHE NUMERO DO MES 

■iM 
50 IF M<1 OR M>12 THEN GOTO 98 
55 LET I-M 
60 LET L-3 
65 LET XS-M$ 
70 GOSUB 100 
75 PRINT SS;' TEM '; 
SO LET XS=CS 
65 GOSUB 100 
90 PRINT SS;" DIAS." 
95 GOTO 40 

98 PRINT: PRINT "DATA INVALIDA" 

99 GOTO 40 

100 LET SS-MIDS(XS. (1-1)*L+1,L) 
110 RETURN 



Para rodar o programa nos micros 
Spectrum e ZX-81, substitua a linha 100 
do programa: 

100 LET SS-XS{(I-1}*L+1 TO ci-1 
)*L+L} 



MENUS E OPCOeS 



Outra aplicaipao bastante interessan- 
te dos conceitos aqui discutidos consis- 
te na programagao rapida de menus com 
entradas por extenso. As varias op^oes, 
colocadas em uma unica variavel string, 
sao depois recuperadas pelo m^todo ja 
descrito: 

10 LET FLS-'INSEHEEDITARAPAGARL 

I STAR" 

20 PRINT "ENTRE UM COMANDO: "iF 



LS i " ■ : 

30 INPUT OPS 

40 FOR 1=1 TO 4 

50 LET DS-MIDS(FLS, (I-l)*6+1.6) 

60 ir DS-OPS THEN GOTO 80 

65 NEXT I 

70 PRINT "CODIGO INUALIDO" 

75 GOTO 20 

80 PRINT "COMANDO ESCOLHIDO -> 

-iD$ 

90 GOTO 20 



Substitua a seguinte linha do progra- 
ma para micros da linha Sinclair: 

50 LET DS-FLS{<I-1>*6+1 TO (I-l 

Kara os micros que dispoem da ins- 
trucao INSTR. que localiza subcadeias, 
e de fiin?6es programSveis, podemos fa- 
zer um programa mais compacto; 



DEiF^^'i 



5 DEF FNC(03.C3,N)-INT((INSTHtO 

S, LEFTS (CS+STRINGS(N," -).N))-1 

)/NJ+l 

10 OS-"CH CH PD DB AT " 

20 PRINT "ENTRE CODIGO DA TRA 

NSACAO " i 

30 PRINT " CCODIGOS VALIDOS: "fO 

$ ; " ) " 

40 LINE INPUT "CODIGO : "iCS 

50 I-FNCC0$,CS,3) 

60 IF I-O THEN PRINT "*** CODIG 

INyALIDO":GOT0 30 

70 PRINT -CODIGO ";1 

80 GOTO 20 

A fun^ao FNC$ retoma o numero da 
op(;ao (posipao seqiiencial na cadeia). 
Seus argumentos de entrada sao: 

OS: cadeia que com^m as opgoes; 
C$: subcadeia procurada em OS; 
N: tamanho fixo das subcadeias. 

£ necessdrio colocar espa?os cm 
branco para separar os comandos arma- 
zenados em 0$. Se isso nSo for feito, 
a funijao INSTR pode encontrar subca- 
deias superpostas, que nao correspon- 
dem as op^oes possfveis. 



RECUPERACAO DE PALAVRAS 



A recuperagao de palavras, codigos 
ou numeros de uma lista, efetuada de 
acordo com o m^todo que acabamos de 
explicar, requer que todos eles tenham 
o mesmo comprimento, de modo a per- 
mitir a apIica(;ao de uma formula. 

Isso nam sempre e desejavel ou pos- 



sivel. Suponhamos que, na programa- 
gao de um jogo de aventura, voce pe^a 
ao jogador que entre a lista dos objeios 
que ele quer levar em uma incursao a um 
castelo mal-assombrado. Nessecaso, os 
comprimentos das palavras contidas na 
cadeia de entrada podem ser bastante di- 
ferentes entre si, o que exigiria a elabo- 
rafao de um programa um pouco mais 
"inteligeme". 

Se determinarmos, por exemplo, que 
o caractere de separafao entre palavras 
e o espafo em branco, a seguinte retina 
realizara o trabalho: 



80 HEM SUBROTINA 

100 LET AS"^"*" 

110 IF CSS CD-"' THEN RETURN 

120 IF CSSCDO" ' THEN GOTO 13 



125 LET CSS-CSS(2 TO) 

127 GOTO 100 

130 LET AS-A5+CS$(1) 

135 LET CSS-CSS(2 TO) 

140 IF CSS{1)="" OH CSS(l)'" " 

THEN RETURN 
150 GOTO 1-10 
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BO HEM SUBROTINA 

100 AS-"' 

110 IF MIDS (CSS. 1. !)■="" THEN RE 

TURN 

120 IF MIDS(CS$,1,1)-" " THEN C 

SS-MID3(CS3.2) :GOTO 100 

130 AS=A$+MIDS(CS$,1,1) :CSS=MID 

0CCSS.2) 

140 IF MIDS<CS$,1.1)-"" OH MIDS 

CCSS.1,1)-" " THEN RETURN 

150 GOTO 130 

A cadeia de entrada e CS$. A cada 
chamada da rotina, A$ retorna uma 
subcadeia contida entre dois espagos em 
branco, em CSS; extraindo-a, reduz o 
tamanho de CSS, 

Eis um programa que testa o funcio- 
namento dessa rotina: 



DD[1][^F!k'^ 



20 PRINT "ENTRE TRES COISAS QUE 
CARREGARA CSEPARADAS POR ESPA 
COS ) : • 

30 INPUT CS$ 
40 LET N-0 

50 PRINT'VOCE CARREGARA;" 
55 GOSUB 100 

60 IF A$-"" THEN GOTO 80 
7 LET N-N+lr PRINT N,A3 
7 5 GOTO 60 

80 PRINT "E MAIS NADA..." 
90 STOP 



QD 

Para rodar nesses computadores, acres- 
cente a seguinte linha: 

10 CLEAR 1000 

A linha 100 inicializa a cadeia de sai- 
da, A$. A linha 1 10 come^a um la?o de 
repetigao, testando se a cadeia de entra- 
da, CSS, e vazia — ou seja, se todas as 
palavras nela contidas j^ foram extrai- 
das. Em caso afirmativo, a sub-rotina 
retorna o controle ao programa que a 
chamou. A linha 120 verifica se o pri- 
meiro dos caracteres que restaram em 
CSS e um espafo em branco. Se for, e!e 
e "podado" de CSS, e o programa re- 
toma para a linha 1 00, para executar um 
novo teste. Se o primeiro caractere nao 
for um espago em branco, a linha 130 
retira-o de CSS, levando-o para AS. Fi- 
nalmente, se um novo espa?o em bran- 
co for encontrado (fim de subcadeia), 
ou se CSS tiver se esgotado, a linha 140 
retorna o controle ao seu programa 
principal. 



SUBSTITUICAO DE SUBCADEIAS 



Uma das fun$6es mais liteis de um 
programa de processamento de textos d 
a que permite substiluir (odas as ocor- 
rencias de uma determinada palavra, ou 
seqiigncia de caracteres, em um docu- 
mento. Essa funijio possibilita, entre 
outras coisas, o uso de macros para a 
redaijao rapida de textos muito repetiti- 
vos. Digamos que voce esteja escreven- 
do um artigo sobre processamento de 
imagens, e que essa expressao ("proces- 
samento de imagens") sera citada algu- 
mas dezenas de vezes, por extenso, ao 
iongo do texto. Para poupar tempo e es- 
forijo, sempre que for preciso digita-Ia, 
voce poderd colocar um simbolo qual- 
quer em seu lugar — por exemplo. dois 
caracteres que dificilmente aparecerao 
juntos em outras partes do texto: *P, $S 
etc. Depois, bastara acionar a fungao de 
busca e substituigao, e o programa tro- 
cari o simbolo convencionado pela ex- 
pressao por extenso, sempre que o en- 
contrar. 

Programar essa operaijao em BASIC 
nao chega a ser dificil, mas envoi ve al- 
gumas compl)ca<;oes, pois a seqiiencia 
que ira substituir o simbolo no texto po- 
de ter um numero de caracteres menor, 
igual ou major. Alem disso, a maioria 
dos microcomputadores nao aceita va- 
riAveis string, com mais de 255 caracte- 
res. Assim, durante o processo de subs- 
titui(;ao, 6 necessirio fazer com que o 
programa verifique esse numero, para 



nao ocorrer nenhum erro. Apresenta- 
mos, a seguir, uma sub-rotina de busca 
e substilui?ao, que vocS podera adicio- 
nar a seus programas: 



100 LET N-1 

110 IF LEN A3 -LEN B$ +LEN C$ > 

255 THEN RETURN 

120 FOH I-N TO LEN A$ 

130 IF AS {I TO I+LEN B$-l) -B$ T 

HEN GOTO 160 

140 NEXT I 

150 RETURN 

160 LET AS-A$(TO I-l) +C$+A$ ( I+L 

EN B$ TO] 

170 LET N-I+LEN C$ 

180 GOTO 110 

100 N-I 

110 IF LEN{AS)-L£N(BS)+LEM{CS)> 

255 THEN RETURN 

120 FOB I-N TO LEN(A$) 

130 IF MID3 tAS.I.LEN(B$))-B$ Ttt 

EN GOTO 160 

140 NEXT 1: RETURN 

160 A$-LEFTSCAS.I-1)+CS+MTD$(A$ 

,I+LEN{BS]) 

170 N-I+LEN(CS) 

IBO GOTO 110 

Os argumentos de entrada da sub- 
rodna sao: 

AS - cadeia que tera substituigoes; 
B$ - subcadeia em A$ a substttuir; 
CS - subcadeia que substituir^ B$. 

Suponhamos que a celebre frase de 
Gertrude Stein: 

UMA ROSA E' UMA ROSA E' UMA 
ROSA 

devera ser transformada em outra (nio 
menos po^tica): 

UMA PEDRA E' UMA PEDRA E' 
UMA PEDRA 

Nesie exemplo, entao: 

AS = UMA ROSA E' UMA ROSA E' 

UMA ROSA 
B$ = ROSA 
C$ = PEDRA 

A rotina funciona da seguinte manei- 
ra: a IJnha 100 inicializa N em 1. Essa 
variavel aponta o caractere de AS a par- 
tir do qual B$ ser^ procurado. Na linha 
110, checamos se o comprimento total 
da cadeia substituida nao excede 255. O 
laeo que vai da linha 120 ^ 140 verifica 
se B$ esta presente em AS, a panir do 
caractere N ate o fim. Se estiver, a li- 



nha 160 efetua a substituigao, concate- 
nando a primeira secao de AS, ate a 
ocorrencia de B$, mais CS e a parte res- 
tante de A$. N e entao aiualizado e 
ocorre nova busca por B$ (retorno k li- 
nba 110). 
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Nos micros com fungao INSTR (ins- 
tring), o la?o das linhas 120 a 140 pode 
ser substitufdo por uma s6 linha: 

120 I-INSTRd.AS.BS) :IF I-O THE 
N RETURN 

Esta listagem testa a sub-rotina de 
substitui?ao. Ela e auto-explicativa: 
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20 PRINT "ENTRE UMA FRASE " : 

25 INPUT A5 

30 PRINT "PALAURA PARA SUBSTITU 

IR ": 

35 INPUT BS 

40 PRINT 'POR "i 

45 INPUT C$ 

50 G05UB 100 

60 PRINT AS 

70 GOTO 20 



DD 

Para radar o programa no TRS-80 e 
no TRS-Color, adicione esta linha: 

10 CLEAR 1000 

Se voce quiser substituir todas as 
ocorrSncias de uma subcadeia, em um 
texto composto de varias linhas (arma- 
zenadas em DATA, por exemplo), uti- 
lize prdximo programa. Nao se esque- 
(fa de colocar uma liltima linha DATA 
"*" para assinalar o fim do texto: 

5Eiaa][^p^ 

10 INPUT "PALAURA PARA SUBSTITU 

IH " ; 

20 INPUT "POR "; 

30 READ A3 

40 IF A$-"*" THEN GOTO 70 

50 GOSUB 70: PRINT A$ 

60 GOTO 30 

70 STOP 



A INSTRUgAO CLEAR 



A programaijao de vari^veis string 
apresenta alguraas diferen?as conforme 
o tipo de interpretador BASIC usado. 

Como vimos no artigo anterior des- 
ta sMe (pdgina 1214), os interpretado- 
res se dividem em dois grandes grupos 



quanto ^s fun(;6es de tratamento de va- 
riaveis literais. No primeiro grupo, cha- 
mado Microsoft (nome da software 
house norte-americana responsavel pe- 
lo desenvolvimento do BASIC padrao 
para os micros MSX, TK-2000, Apple 
II, TRS-80 e TRS-Color, entre outros), 
encontramos fun^'oes familiares como 
LEFTS, RIGHTS, MID$. I^^STR etc. 

No segundo grupo, denominado Sin- 
clair (destinado ^s mdquinas compati- 
veis com as linhas ZX-81 e Spectrum), 
a cadeia de caracteres e iratada como 
um conjunto dimensionado, e a parti- 
cula TO se encarrega da referencia as 
subcadeias de um string. 

Os interpretadores do tipo Microsoft 
tambem diferem dos do tipo Sinclair 
qpanto ao gerenciamento do espago dis- 
ponivel na mem6ria RAM para varid- 
veis literais e numericas. Ambos, porem, 
armazenam uma variavel literal de for- 
ma semelhante (veja o artigo da pdgina 
1101): uma cadeia pode ter entre Oe 255 
caracteres, armazenados em um conjun- 
to contiguo de bytes. O primeiro byte de 
um string e usado para armazenar o seu 
comprimento, ou seja, o numero de ca- 
racteres que possui. Essa informafao e 
usada, por exemplo, pela funfao LEN, 
disponivel nos dois tipos de interpreta- 
dor, que informa o comprimento da ca- 
deia. Se uma variavel string for conca- 
tenada atraves de uma expressao como 
LET A$ = A$ + BS, o interpretador ma- 
nipula AS e BS de modo a transferi-los 
para uma drea livre da memdria RAM, 
colocd-los um apos o outro, eliminar o 
byte de comprimento do segundo string 
(B$) e atualizar o valor armazenado no 
byte de comprimento do primeiro string 
(AS). 

Como se pode concluir, as operafoes 
de concatena^ao sao lentas, devendo ser 
evitadas quando possivel. Alera disso, 
exigem uma Area livre de memdria para 
a execu§ao da copia — os originals dos 
dois strings AS e BS continuam no mes- 
mo lugar, mas "desativados" pelo in- 
terpretador. Periodicamentc, uma fun- 
gao chamada "coleta de lixo" (garbage 
collection, em ingles) recupera essas 
^eas para uso pelo programa. 

Quanto a reserva de espago para 
strings, na RAM, os interpretadores tam- 
bem apresentam diferen^as. Os do tipo 
Sinclair operam automaticamente ou 
por meio de uma declaragao DIM, que 
deve ser usada para dimensionar strings. 
Os do tipo Microsoft nem sempre pre- 
cisam de uma declaragao explicita para 
dimensionar o tamanho da Area de 
strings. Nos micros das linhas TRS-80 
e TRS-Color, a instrugao CLEAR ser- 
ve a esse prop6sito. No Apple e no 
MSX, ela nao i necessdria. 



TROCA 
DEMENSAGBMS 



Compartiihe informa^des profissionais 
e de lazer com outras pessoas 
atravi^s de $eu micro. Basta ligd-lo por 
telefone a urn dos vdrios servi^os 
computadortzados de "quadro de avisos" 



No artigo Sua ligagdo com o mundo 
(pigina 561), examinamos como o dis- 
positivo especial chamado modem po- 
de conectar um micro a outros compu* 
tadores, utilizando a linha telefonica. 
Atraves dele, uma grande variedade de 
bancos de dados computadorszados fi- 
c&tk a disposi?ao do usudrio: cotacoes 
das Bolsas, noticiarios, referencias bi- 
bliogrdficas sobre assuntos tecnicos etc. 
Existera hoje, em todo o mundo, mais 
de um milhao de pessoas que se benefi- 
ciam de redes de computadores. 

O acesso a esses sistemas, entretan- 
to, nio t algo exatamente barato, prin- 
cipaimente quando e necessdrio pagar li- 
ga?oes intemacionais (DDI). Al6m dis- 
so, muitos usuirios se ressentem da fal- 
ta de um coniato mais pessoal entre 
quem fornece e quem recebe a informa- 
^ao — o que tatvez explique, por exem- 
plo, o siicesso e a popuiaridade do ra- 
dioamadorismo. Contudo, jdexiste um 
equivalente desse hobby dentro do cam- 
po das redes informatizadas de dados. 
Trata-se da versSo "domestica" dos 
grandes sistemas telematicos (como 
CompuServe e Cirandao) denorainada 
quadro de avisos computadorizado (do 
ingles, bulletin board). 

Um Computerized Bulletin Board 
Service (ou CBBS, como 6 mais conhe- 
cido entre os aficionados) €, em sua for- 
ma mais simples, o equivalente eletro- 
nico do quadro de avisos de um clube, 
onde todos podem afixar noticias, reca- 
dos etc. Para ter acesso a um sistema 
desse tipo, o usuario precisa — al^m de 
um telefone e de um micro — dos se- 
guintes elementos: um modem, urn soft- 
ware especifico para intercomunicagao 
e numcro do telefone de um CBBS. 
O custo do acesso propriamente dito (ler 
e/ou escrever no quadro de avisos), ge- 
ralmcnte muito baixo, varia segundo a 
fmalidade do servigo {comercial ou nao) 
e inclui a despesa normal com a liga9ao 
telefonica. 

Embora os CBBS existam M algum 
tempo (sobretudo nos EUA, onde fo- 
ram criados), em nosso pais eles ainda 
sao uma novidade. Apenas as cidades 
maiores, como Sao Paulo e Rio de Ja- 
neiro, dispoem desse servipo. Tudo in- 
dica, entretanto, que os CBBS se multi- 
piicarao rapidamente e que a maioria 



dos proprieiSrios de modems tomar^ 
contato com eles brevemente. 



CARREGAR E DESGARREGAR 



Os CBBS nao sao utilizados somen- 
te como sistemas de mensagens. Na rea- 
lidade, sua rapida expansao se deve, 
principalmente, ao fato de a maioria de- 
les dispor de um servigo especial que 
possibUita a transraissao de software de 
urn computador para outro. No jargao 
dos seus aficionados, uploading signi- 
fica o ato de enviar um software para 
armazenamento no CBBS, enquanto 
downloading quer dizer retirar uma c6- 
pia das informagoes dispom'veis, i. im- 
portante ressaltar aqui que o micro que 
manda e o que recebe a listagem do pro- 
grama nao precisam ser compativeis en- 
tre si. Essa e, portanto, uma oportuni- 
dade rara de transportar certos tipos de 
software por meios incomuns. 

O principio dessa id^ia consiste em 
converter os programas em textos AS- 
CII (padronizados para todos os micros, 
que abordamos, menos o ZX-81) para 
realizar a transmissao via modem. 

Outro requisito para o trabalho de 
copjar OS programas dispom'veis no 
CBBS d ter uma unidade de discos e um 
interpretador ou compUador da lingua- 
gem original do programa. Com eles, 
poderemos carregar arquivos em forma- 
te ASCII. Os sistemas operacionais das 
linhas TRS-80, TRS-Color e MSX ofe- 
recem essa facilidade sem requerer o em- 
prego de programas conversores espe- 
ciais. Em outros micros, o prdprio soft- 
ware de transmissao pode incluir uma 
pequena rotina que transforma texto em 
programas e vice-versa. Alem disso, al- 
guns CBBS sao especificos para uma li- 
nha de micros (os da linha Apple e IBM 
PC sao OS mais comuns), e permitem a 
transferencia direta de programas entre 
dois computadores compativeis, sem o 
arquivo ASCII intermedi4rio. 



COMO FUNCIONA UM CBBS 



O quadro de avisos geralmente e 
"hospedado" por um microcomputador 
ligado, por um ou mais modems, a um 



tronco telefonico. Para baratear os cus- 
tos operacionais, a maioria dos CBBS 
atende simultaneamente a um mimero 
limitado de usudrios — normalmente 
entre 1 e 5. A primeira vista, isso pare- 
ce pouco, porem, como veremos adian- 
te, € uma impressao falsa ja que o tem- 
po util de conexao de cada usuario e ex- 
tremamente curto; o suficiente paraco- 
piar (download) as noticias ou progra- 
mas de interesse para seu disco. 

O quadro de avisos central nada mais 
e que a memdria do micro que o geren- 
cia. Hoje, a materia dos CBBS dispoe 
de discos rigidos de maior capacidade, 
mas pode-se opera-los s6 com dois acio- 
nadores de disquetes como memoria au- 
xiliar. Nesse caso, entretanto, a veloci- 
dade e a capacidade do sistema sao sig- 
nificativamente diminuidas. 

Muitos dos CBBS recentemente sur- 
gidos no Brasil constituem iniciativa de 
voluntdrios, Seguindo a tradipao dos en- 
tusiastas da microinform^tica, eles sao 
gratuitos (embora existam alguns, como 
o Sampa CBBS, em Sao Paulo, que se 
tornaram tao grandes que foi necessa- 
rio fixar uma pequena taxa). Um dos se- 
ries problemas desse sistema i impedir 
que pessoas nao autorizadas tenham 
acesso a ele. Usualmente, isso e feito 
atribuindo-se uma senha a cada mem- 
bro. Contudo, essa 6 uma questao difi- 
cil de ser solucionada, tanlo que nem 
mesmo o Pentagono norte-americano 
vem obtendo sucesso no sentido de evi- 
tar que pessoas nao autorizadas pene- 
trem em seus raonstruosos "mainfra- 
mes". Na verdade, muitos CBBS rece- 
bem de bragos abertos todos os intrusos. 



PADROES 



Evidentemente, a dist^cia fisica entre 
o usuario e o CBBS nao representa ne- 
nhum obstdculo, i± que um computador 
pode perfeitamente se comunicar com 
outro, em qualquer pane do mundo, des- 
de que ambos tenham modems compa- 
tiveis. Utilizando o equipamento corre- 
to, voce poderd se beneficiar de mais de 
1.500 services de troca de mensagens es- 
palhados peios EUA, Canada e Europa. 
Em razao de nao existirem padroes co- 
muns de comunicagao entre europeus e 
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norte-americanos, o usuano quede&ejar 
contatar CBBS dessas regioes deveri dis- 
por de modems diferentes. 

O padrao adotado na Europa 6 o 
CCITT, sigia de uma agenda da ONU 
denominada Comite Consultatif Interna- 
tional Tdliphonique ei Ti!4graphique. 
Essa agencia estabelece convencoes inter- 
nacionais para tefecomunicafoes que po- 
dem tambem ser seguidas internamente 



por um pais-membro. Indiretamente, is- 
so acaba facilitando a comunicacao en- 
tre todos os proprietdrios de computado- 
res. Cada pais, pordm, pode ter simulta- 
neamente outras conven^oes iitternas, de- 
terminadas e aprovadas por brgaos esta- 
tais, como o Contel (Conselho de Tele- 
comunicagoes), no Brasil. 

Nos EUA, o chamado padrao Hayes 
c o mais comum para CBBS privados 



(seu nome deriva da fabrica dos modems 
mais populaies e baratos do pa(s). O pa- 
drao Bell tambem t muito usado. 



VELOCIDADES OE TRANSMISSAO 



As agendas de normatizapao, nacio- 
nais e internadonais, deixam aos fabri- 
cantes de modems a cria^ao de muiias 




n 



outras conven^des. Os modems sao clas- 
sificados em fun_?ao de dJversos parame- 
tros operacionais e de desempenho co- 
mo, por exempio, a vdocidade de trans- 
missao. A grande raaioria dos CBBS — 
OS mais baratos — opera com modems 
de 300 bauds, isto e. eles recebem e 
transmitem dados k velocidade de 300 
bits por segundo. (O nome da unidade 
de medida baud ^ uma homenagem ao 
engenheJro frances Baudot, considera- 
do o inventor de urn ctidigo para telex.) 
Isso equivale, aproximadamente, a um 
bit enviado a cada 3.3 milissegundos. Ja 
OS sistemas mais avan^ados de telecomii- 
nica?6es digitals seguem o padrao 
1 200/75 baud: o computador central 
transmite dados ^ velocidade de 1200 
bauds e o usuario os envia a apenas 75 
bauds. Sistemas como o Cirandao, da 
Embratel, e o Videotexto utilizam essa 
conven^ao (seu objetivo 6 reduzir o tem- 
po de ocupafio do computador central, 
devido ao custo elevado, e impor os gas- 
tos da intera?ao ao usuirio). 

As taxas de transmissao normalmente 
sao miiltiplos de 300 (300. 600, 1200. 
2400 etc.), duplicando progressivamen- 
te ate atingir 9600 bauds, que € o maxi- 
mo em uso atualmente. 

Em muitos computadores, dependen- 
do dos padroes defmidos pelo CCICT 
para interfaces serials RS-232, as volta- 
gens de repiesentaijao dos numeros bi- 
nirios e 1 sao, respectivamente, + 12 
e - 12 V. Os micros que usam as volta- 
gens + 5 e V necessitam de um con* 
versor, que geralmente e barato. 



BAUDS E BYTES 



Cada caractere de informa?ao trans- 
mitido por um modem comp6e-se, ba- 
sicamente, de um bit de inicio (start bit), 
dos bits de dados (data bits) de um bit 
de paridade {parity bit), usado em tes- 
tes de erros de transmissao, e de um bit 
de termino (stop bit). Como vemos, 
existem mais bits do que os oito de um 
byte; assim,, para saber quantos bytes 
(caracteres de texto) sao enviados por se- 
gundo, lomando como padrao uma ta- 
xa de 30O bauds, por exempio, dividi- 
mos esse numero por 11. 

Embora nao haja uma seqiiSncia 
"natural" nem uma quantidade prees- 
tabelecida para os diferentes bits que 
formam o caractere de transmissao, i 
importante que tanto o emissor quanto 
o receptor reconhegam a convenfao se- 
guida. Alem disso, ambos devem ser ca- 
pazes de formatar, enviar ou receber os 
dados conforme a taxa padronizada. 

A velocidade adotada por um CBBS 
sera escolhida levando-se em conta a ne- 



cessidade de se reduzir os custos do ser- 
vi?o, at^ porque os Computerized Bul- 
letin Board Service nSo dispoem dos re- 
cursos de hardware das grandes empre- 
sas de telecomunica?6es. O fato de se- 
rem empregados modems mais baratos 
implica o uso de uma taxa menor de 
transmissao a fim de evitar erros causa- 
dos por interferencias eletricas, normal- 
mente filtradas por equipamentos sofis- 
ticados. Com um modem barato ope- 
rando a altas taxas, qualquer pulso na 
rede poderia ser interpretado como um 
bit. Em velocidades pequenas, o pulso 
que define um bit e mais longo e, por- 
tanto, mais facil de identificar. 

De qualquer modo, o nn'do seri sem- 
pre um problema dificil de se resolver. 
Com a entrada em service das redes di- 
gitals de comunica^oes baseadas em fi- 
bras opticas, espera-se que os sinais se- 
jam mais "limpos" e rdpidos. 



DUPLEX 



Denominamos full-duplex^ ou half- 
duplex ao parimetro que varia de mo- 
dem para modem e diz respeito h simul- 
taneidade das fungoes de transmissao e 
recepcao. Full-duplex significa que um 
determinado modem e capaz de receber 
e transmitir informafoes ao mesmo tem- 
po; half-duplex indica que ele executa 
apenas uma fun^ao de cada vez. 

Evidememente, um modem half-du- 
plex e mais barato e adequado a traba- 
Ihos com micros domdsticos, ou at^ a al- 
gumas aplicagoes profissionais mais 
simples. Como e precise aguardar uma 
transmissao terminar antes de iniciar a 
recep?ao (ou vice-versa), os erros come- 
tidos na operagao poderao trazer alguris 
inconvenientes. A possibilidade de se 
consurrdr um tempo excessivo pratica- 
mente desaconselha o uso deste equipa- 
mento para trabalhos profissionais. 

Os CBBS se tornaram vidveis gragas 
a sofistica?ao do hardware e software de 
comunica?6es. O maior passo nesse sen- 
tido foi a introdu9ao de modems ou re- 
cursos de autodiscagem (auto-dialing, 
em ingles) e auto-resposta (auto-answe- 
ring). A partir dessas inovagoes, as con- 
suitas ao computador hospedeiro do 
CBBS passaram a ser respondidas au- 
tomaticamente com uma linha conecta- 
da entre receptor e transmissor. 



SOFTWARE PAHA COMUMICACOES 



Al^m do computador, do modem e 
do telefone, faz-se necessdrio um soft- 
ware especial que transforme o micro 
em um terminal de dados. 



Classificamos o software de comuni- 
ca(;6es em: burros e inteligentes. O in- 
teligente — essencial para quern deseja 
operar um CBBS — permite descarre- 
gar o programa (al^m de texto de men- 
sagens) e armazeni-lo automaticamen- 
te no disco. Ja o software burro possi- 
bilita apenas a comunicagao simples, 
sem qualquer forma de armazenamen- 
to ou listagem, Certos softwares inteli- 
gentes oferecem recursos extremamcn- 
te liteis, entre eles o reconhecimento au- 
tomdtico — atrav6s do programa — do 
protocolo seguido pelo computador hos- 
pedeiro e a armazenagem e discagem au- 
tomitica de varios numeros de CBBS. 

A fun?ao basica do programa e a de 
permitir que o micro transmita e receba 
sinais (caracteres) pelo modem conecta- 
do ao sistema. mantendo o sincronismo 
entre o tectado, o video e a mem6ria, O 
software orienta o computador por in- 
termedio de comandos retativos a for- 
ma com que os sinais serao transmitidos 
e recebidos. 

Muitas pessoas nao conseguem en- 
tender como dois computadores aparen- 
temente incompativets podem se comu- 
nicar. E sao essas mesmas pessoas que 
costumam criticar os fabricantes de mi- 
cros por constantemenle ignorarem os 
padroes que facilitam a interligagao en- 
tre equipamentos distintos. 

Por meio do CBBS, temos a falsa im- 
pressao de que um computador esta 
identificando os comandos enviados por 
outro diferente (um Apple e um MSX, 
pK>r exempio). Na verdade, isso s6 acon- 
tece porque a maioria dos CBBS imple- 
menta seu software de acesso por meio 
de menus relativamente simples. 

Com eles, o usuario seleciona uma 
op^ao pressionando uma tecla ou dtgi- 
tando uma linha de comando. Do ou- 
tro lado, um programa especial "varre" 
o modem de recep^ao, de modo a cap- 
tar OS sinais enviados e a inierpretar cor- 
retamente o pedido. A partir dai, os co- 
mandos adequados passam a ser acio- 
nados pelo computador hospedeiro. 



EXPLORANDO OS C88S 



O primeiro passo para explorar todos 
OS recursos dos CBBS a sua disposis;ao 6 
adquirir um modem adequado. Confor- 
me abordamos, os CBBS normalmente 
adotam um tipo padrao de 300 bauds, 
com protocolo CCICT ou Hayes. Os sis- 
temas comerciais, como o Videotexto e 
o Cirandao, utilizam o padrao 1200/75. 
Assim, ideal € que o usuario compre 
um modem que tenha uma chave de se- 
legao para cada modalidade. 

O segundo passo consiste em provi- 
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denciar um software dt comunicagSo (se 
ele jA nao tiver sido fornecido juntamen- 
te com o modem). 

O terceiro passo e descobrir os ndme- 
ros de telefone dos CBBS e seus deta- 
Ihes tecnicos de acesso. Esses dados po- 
dem ser encontrados em revistas espe- 
cializadas de microcomputafao, 

Superadas todas as questoes, passa- 
remos a parte pratica da opera<pao. Co- 
necte o modem a linha telefonica e ao 
microcomputador e execute o software 
de comunicacao. Caso a versao utiliza- 
da dJsponha de autodiscagem, todo esse 
trabalho sera fetto automaticaraente, 
uma vez especificado o CBBS que se de- 
seja acessar. Do contrario, bastara ligar 
o miraero telefflnico do mesmo e aguar- 
dar o sinal de recepcao (geralmente um 
som agudo de poucos segundos denomi- 
n&do por(adora). Recebido o aviso, pres- 
sione o botao que conecta o modem a 
linha (se o equipamento for de conexao 
direta), ou coloque o bocal do telefone 
nas "orelhas" de acoplamento (se for 
um modem aciistico). 

Para termos acesso a alguns CBBS, 
e necessario chamar o niimero deseja- 
do, deixar tocar uma vez, e, em segui- 
da, discar novamente esse niimero. S6 
entao o procedimento ja descrito pode- 
ra ser observado. 

Muhos CBBS funcionam de manei- 
ra semelhante. No inicio da operacao, 
usuario recebe uma mensagem que in- 
dica seu contato com o CBBS. Depois, 
deve enviar uma senha de entrada e/ou 
o niimero ou nome de identifica?ao — 
principalmente se o uso do CBBS impli- 
ca pagamento atrav^s de assinatura 
mensal ou anual, Tais sistemas, entre- 
tanto, chegam a ofereccr, por um tem- 
po limitado, algumas informagoes para 
convidados e "intrusos", isto e, pessoas 
ainda nao registradas no servigo. 

Os CBBS gratuitos, dependendo do 
tipo, podcm solicitar seu nome e cidade 
ou endere^o e numero [elefonico, bem 
como algumas especificafoes do micro 
usado (modeio, tamanho da tela etc.). 
Esses detaJhes sao importantes para que 
computador hospedeiro saiba como 
operar durante a comunIcaf;ao. 

Na fase seguinte, voce receber^ infor- 
magoes do CBBS: horarios de funcio- 
namento, limite de tempo para cada 
chamada etc. Tais dados interessam, so- 
bretudo, aos CBBS voluntdrios, jd que 
algumas chamadas sao feitas em hord- 
rios inconvenientes (dcsagradando o 
operador, que geralmente utiliza o tele- 
fone de sua pr6pria casa para isso). 

Assim como o videotexto, a maioria 
dos CBBS ^ operada atraves de menus. 
A escolha de uma opgao em um menu 
podera levar a menus secund^ios e ter- 



ciarios etc. ou a execugao da opcao. 
Muitos CBBS possuem uma sefao que 
permite aos novos usuArios registrar seus 
dados (endereco, nome, telefone e senha 
de acesso). Outras opgoes oferecidas po- 
dem inciuir uma se^ao tecnica, comuni- 
cagoes com o gerente etc. 

O elemento fundamental do CBBS 
esti no quadro que contem avisos e no- 
tas para conhecimento geral. Isso, po- 
rem, nao exclui a possibilidade de exis- 
tir tambem uma se^ao de mensagens 
pessoais: "caixas postals", com acesso 
limitado por senhas secretas. Esse siste- 
ma permite deixar informa?6es reserva- 
das para outros usuarios ou formar sub- 
quadros de avisos dentro do CBBS, 



TERMINOLOGIA 



Hi vdrio.? termos tecnicos que, em- 
bora comuns no campo da comunicafao 
entre computadores, sao pouco conhe- 
cidos em outros ramos da informStica. 
Devido a isso, is vezes, cria-se uma certa 
confusao sobre seu significado. 

A seguir, uma lista dos termos que 
normalmente sao mal interpretados: 

Videotexto - Sistema especial de com u- 
nicagao entre computadores, oferecido 
como um servipo publico pelas compa- 
nhias telefonicas. Atraves de uma linha 
comum, computador central envia ao 
usuario a informagao (organizada em 
paginas ou telas). Esta e recebida por 
um terminal especial de videotexto ou 
um micro qualquerj que podem respon- 
der fazfindo novas solicitagoes de dados. 
No Brasil, tem-se acesso aos sistemas de 
videotexto por meio de uma assinatura 
mensal junto a companhia telefonica de 
cada cidade. Na Europa, esse servifo, 
implantado em vdrios paises, e denomi- 
nado Prestel. 

Teletexto - Sistema semelhante e mais 
baraio que o videotexto. Aqul, en- 
tretanto, a informai;ao e enviada apenas 
em um sentido (do computador central 
para o terminal), aproveitando o inter- 
vaio disponi'vel entre dois quadros exj- 
bidos pela TV. Este sistema nao existe 
no Brasil. Exemplos no exterior sao os 
CEEFAX e o ORACLE, utilizados na 
Inglaterra. Aparelhos de TV de algumas 
marcas ja sao fabricados com a interfa- 
ce embutida. 

Videotex - Termo geral que engloba o vi- 
deotexto, o teletexto e os CBBS. Criou-se 
uma certa confusao depois que alguns 
CBBS evolui'ram e se transformaram em 
uma rede, apesar de conservarem o mes- 
mo nome. 



Rede - Em sua forma maJs restrita, re- 

fere-se i ligacao direta entre vdrios com- 
putadores com objetivos especificos 
(normalmente para fins comerciais ou 
de pesquisa, como a rede brasileira 
RENPAC). As redes dividem-se em dois 
tipos: a local (LAN, ou Local Area Net- 
work), que, geralmente, envolve apenas 
a ligagao direta entre micros e seus pe- 
rif^ricos ou a um computador central, 
e a telemdtica (WAN, ou Wide Area 
Network), que inclui liga^oes remotas, 
via rede telefonica, microondas ou sa- 
t^lites. Atraves da LAN, os usuarios po- 
dem compartilhar recursos como discos 
e impressoras. A WAN, por sua vez, 
permite a intercom unicagao e a conse- 
qiiente troca de mensagens e transagoes 
(como em uma rede de automagao ban- 
ciria. que liga vdrias agendas aos com- 
putadores centrais). 

Uma rede pode ser privada ou piibli- 
ca. Existem virios exemplos de redes pu- 
blicas, como o Cirandao, da Embratel, 
ou o CompuServe, nos EUA, com mais 
de 250.000 usuarios. 

Nos liltimos anos. o termo rede vem 
perdendo sua especificidade, passando 
a significar qualquer forma de interco- 
munica^ao realizada entre computado- 
res. Por esse conceito, todos os servifos 
do tipo videotex tambdm poderiam ser 
considerados uma rede. 

Telex e leletex - Servipos em fase de in- 
tegragao a redes de computadores e que, 
por isso, ainda sao confundidos. O te- 
lex e um sistema telefonico de comuni- 
cafio detextos. de baixavelocidade (15 
bauds), gerenciado por uma central es- 
pecial computadorizada. Existem inter- 
faces que permitem dar a um micro a 
funfao de um terminal de telex (dai se- 
rem chamadas de microtelex). 

O teletex 6 uma evolugao tecnica do 
telex e, muito provavelmente, seu subs- 
titute direto, Utiliza o mesmo sistema 
de comunica^ao, por^m, a uma veloci- 
dade bem maior, de modo a facilitar o 
uso de micros como terminals. Ainda 
nao foi implantado no Brasil. 

Correio elelronico - Servi(;o oferecido 
por diversos tipos de rede, videotexto ou 
CBBS. Consiste, basicamente, de "cai- 
xas postals" (espago reservado no dis- 
co central a cada assinante), capazes de 
receber mensagens individuais ou circu- 
lares, enviadas por outros usuarios. A 
comunicagao e feita a nivel privado, e 
protegida por senhas, Em alguns paises, 
o sistema e prerrogativa do servigo es- 
tatal de correios. No Brasil, como em 
outras nagoes, esse monop6lio ja foi 
rompido (Cirandao, Mensagem, Video- 
texto). 
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USBCAL C 




Continue digitando nosso programa 
editor de melodJas. Com as listagens 
fornecidas no prdximo artigo da s^rie, 
ele ficard completo e voce poderd dar 
vazao a todo o seu talento musical. 



Apresentamos aqui a segunda parte minima 
de nosso editor musical. Carregue a pri- 
meira parte da fita cassete ou disco e di- 
gite, na seqilgncia, a listagem dada abai- 
xo. Depois, grave as duas partes para 
junta-las & que iremos publicar no prd- 
ximo e ultimo artigo da s6rie — onde vo- 
ce encontrari, tamb^m, instrufoes de- 
talhadas para uma eficiente utilizagao 
do programa. 

Corao voce terd oportunidade de ob- 
servar, k medida que for digitando, o 
programa e composto per vdrias sub-ro- 
linas chamadas do menu principal, fi 
possivel ter uma ideia da funcao de ca- 
da uma delas tendo os itens do menu — 
que pode ser exibido na tela ainda que 
o programa esteja incompleto. 



=4 Oltavd 



'1 a ?• 



2000 CLS 

2010 C0SU8 2500 

2140 PRINT 'ct;' Notas tecladas 

(" imaxnotea; "Max.) "' ' 
2160 INPUT "Entre Notaa - <RET> 

para acabar'iNS 
2175 IF LEN (N9}-0 THEN GOTO 1 
90 

2180 FOB l-l TO LEN (N5) : IF (N 
S(1)<"0' OH NS(l)>"9'') AND (N$ C 
lK>"3") THEN GOTO 2000 
2190 LET N-VAL (NSJ 
2200 IF INT (N/1000) >11 AND INT 

(N/1000)<>-4 THEN GOTO 2000 
2210 IF N<0 THEN GOTO 2280 
2220 LET M-INT CN/XOO) : LET D-N 
-««10& 

2230 LET 0=M-INT (M/10)*10: IF 
0<J OR 0>7 THEN GOTO 2000 
2240 LET M=INT (M/10) + (o-l J *1Z- 
36 

2260 LET ct-ct+1: LET t(2«ct-l) 
=D: LET t (2*ct)=M 
?270 GOTO 2000 

2280 LET M=-4! LET D=0-CN-M*100 
> 

2290 IF MO-4 THEN GOTO 2000 
2310 GOTO ZZ60 

2500 PRINT "Entre a Nota na for 
ma <Nuttiero>. <Oitava>, <Duracaa 
>.■' 
2SZ0 PRINT "C - E - 4 G|- 

a"*"C#- 1 F - 5 A - 9"'"D 
- 2 F|- 6 At- lO-^'DI- 3 
G - 7 B - 11" 

2560 PRINT "PAUSA e -4" "''Semi 
colcheia-1 Minima •= S"'"Col 



che 1 a 



Semibreve^ie" " 'Se 



2600 PRINT '"Duracao DEVE ter 2 
diQitoa" ' "ex. 3304-DI, Colchei 
a 3a. oitava"'"ex. 5408-FI, Min 
ima 4a. oitava" 
2630 RETURN 
3000 CLS 

3010 PRINT "Tocar muoica" 
30ZD PRINT : PRINT : PRINT 
3030 PRINT "Digite Tempo - (1- 
15) -; 
3040 INPUT S 

3050 IF S<1 OH S>15 THEN GOTO 
3000 

3060 LET teBpo-0.02* (16-S) 
3070 FOR i-1 TO ct 
3080 LET D-t(2*i-l): LET H-t(2* 

i) 

3090 IF n--4 THEN GOTO 3120 
3100 SOUND Dxtempo.M 
3110 GOTO 3130 
3120 PAUSE 50«D*tenipo 
3130 NEXT i 
3140 RETURN 
4000 CLS 

4010 PRINT "EDITOR MUSICAL"''" 
"D - Moatrar todae aa notaa"''" 
E - Editar una nota"' "I - Inae 
rir una nota""'"X - Apagar uma 
nota''''''"R - Retornar ao menu 
principal" 

4090 PRINT ' ' '"Eacolha uma opca 
o - ": 

4100 LET OS-INKEYS: IF 0$-"" TH 
EN GOTO 41 OU 

4105 IF CODE (0$><97 THEN LET 
OS-CHHS (CODE (OS) +32) 
4110 IF OSO'd" AND OSO'e' AND 
0$<>"i" AND OS<>"r" AND OS<>"x 
" THEN GOTO 4000 
4120 IF OS^'r" THEN RETURN 
4130 IF 05="e" THEN GOTO 4300 
4134 IF OS'^-i" THEN GOTO 4700 
4136 IF OS="x" THEJJ GOTO 4800 
4140 CLS 

4150 FOR 1-1 TO ct 
4160 LET M=t(2*i): LET D=t(2«i- 
1) 

4170 LET 0=INT ( (M+36) /IZ) +1 
4180 LET N= tM+36)-(0-l)*12 
4190 PRINT i;" Nota- "sN;" Oit. 
- - ; r •* I>ur . - ' ; D 
4195 POKE 23692,255 
4200 IF i-20*INT (1/20) THEN G 
OTO 4220 
4210 GOTO 4250 

4220 PRINT '"QuaUuer tecla par 
a cont inuar " ; 
42 30 PAUSE 
4240 PRINT 
4250 NEXT i 



4260 PRINT 

a retornar " ; 

4270 PAUSE 

4280 GOTO 4000 

4320 CLS 

4330 GOSUB 2S00 



QualQuer tecla par 



m 



650 P-P-36 

660 IF P-1ANDC<6THEN C-C+1:0CS- 

MIDS(STH3(C) , 2) 

670 IF P-2AND01TBEN C»C-1:0CS- 

MIDS{STR3(C) ,2) 

680 IF(P-30RP-6)AND LE>I THEN L 

E=LE-1:LE3=MID3 (R1S,LE,1)+" ' 

690 IF(P-40RP»7)AND LE<7THEN LE 
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SEGUNDA PARTE 



00 PROGRAMA EDITOR 



GRAVACAO E LEITURA 
DIGITACAO DAS 



SUB-ROT(NAS 



?00 IF P"5 THEN IS-'p-tPg-'-iGO 

TO 750 

710 IF P-60RP-7 THEN LES-LEFTS< 

LES, !>+"." 

720 IF P-8 THEN BETUBN 

730 IF P=9 AND NK>0 THEN NN="NN- 

I 

740 GOTO 510 

750 US-"L-:IF IS>-"a" AND IS<-" 

q" THEN P9-CHRS(ASC(l$)-32) ELS 

E IF IS<>"P"THEN PS-I$+"i"ELSE 

PS-'"" :US-"R" 

760 PLS-"V15T"+STB5(TEJ+"0"+0CS 

+US+L2S(INSTB(H1$, LEFTS {LES, 1) ) 

) 



770 IF MlD3tLES,2,l)-" 

-PS+" ." 



■THEN PS 



780 PLS-PLS+PS:PLAY PL$ 

790 NN-NN+l:N$(NN)-I3+OC3+LE3 

800 GOTO 580 

810 CLS:COLOH 4, 15 

B20 LOCATE 3 , 2 : PBINT'ENTBADA MA 

NUAL DE NOTAS"; 

830 LOCATE 3 , IB: PRINT" ' m' BETO 

RNAB-MENU PRINCIPAL" 

840 LOCATE 3 , 19 r PRXNT'USE FORMA 

TO;alh. ( ' . 'opcional) 

850 GOSUB 360: LOCATE 3, 21: PRINT 

"ENTRE STRING NOTA:"; 

860 IF NN=MX THEN LOCATE 1,23;P 

RrNT"MAXIMO NUMERO DE NOTAS COL 

OCADO!";FOR S-ITOIOOO : NEXT : BETU 

RN 

870 LINE INPUT AS 

B80 IF AS-="" THEN 870 




890 IF A3-"a"0R AS-"M' THEN RET 

URN 

900 IF LEN(A$)>40RLEN(A$)<3 THE 

N 970 

910 IF CTNSTR (fi33. LEFTS (AS, 1) ) ) 

-0 THEN970 

920 IF LEFTS {A3. 1)-"P" THEN A3- 

-p-+- -+MID3(A3.3) :GOTO 940 

930 IF {INSTR{R2$,MIDS{AS,2,1)) 

)-0 THEN 970 

940 IF {INSTR(R13,MIDSCAS.3.1)) 

)-0 THEN 970 

950 IF MID3(AS,4,1)<>-.' THEN A 

3-LEFTS{AS,3)+- " 

960 GOTO 990 

970 LOCATE 21 . 21 : PRINT"ENTHADA 

ILEGAL!-:CHR3(7) 

980 LOCATE 21, 21 ■PRINT" 

" :GOTO 850 
990 NN-»IN-i'l:HS(NN)-A9 
1000 GOTO 850 
1010 IF NN-0 THEN RETURN 
1020 COLOR 1,15: LOCATE 0,O:PRIN 
T "MODO EDIC*0- 1/2/ 3/4 

1030 LOCATE 0,1:PRINT STRINGS (4 

0,32) 

1040 LOCATE 0,2: PRINT STRINGS (4 

0,32) 

1050 LOCATE 0.18: PRINT STRINGS t 

40,32) 

1060 LOCATE , 3 : PRINT STRINGS (4 

0,32) 

1070 LOCATE 2,20:PBINT"1:APAGAR 

NOTAS" : 
lOeO LOCATE 2, 21:PRINT-2:1NSEHI 
R NOTAS"; 

1090 LOCATE 2 , 22 ; PRINT" 3 : ALTERA 
R NOTAS " ; 

1100 LOCATE 2,23:PHINT-4:CONTIN 
UA" i 

1110 AS-INKEY3rIF A$<" l-ORA$>"4 
■THEN 1110 
1120 0P-VALtA3) 

1130 ON OP GOTO 1150,1250,1.410, 
1140 



1140 


RETURN 1 


1150 


LOCATE 12,0;PBINT"i :APAGAH 1 


NOTAS- 1 


1160 


LOCATE 0,2: INPUT" INI CIA NA 1 


NOTA" i ST 1 


1170 


IF ST-0 THEN 1010 


1180 


IF ST>NN THEN 1150 


1190 


LOCATE 0,3: INPUT "OUANTAS A 


PAGA 


(ENTER-1)":ND 


1200 


IF ND<-0 THEN ND»1 


1210 


IF ST+ND-1>NN THEN ND=NN-S 


T+1 




1220 


FOR K-ITOND 


1230 


FOR J-ST TO NN-1 :NS tJ)«NS( 


|J+1) 


NEXT 


1240 


NN='NN-1:NEXT K : I«SL-1 :GOTO 14q 


1 



1010 
1250 LOCATE 12 , : PBINT"2 : INSERT 
R N0TA3" 

1260 LOCATE , Z : INPUT"INICIA IN 
SERCAO APOS QUE NOTA";ST 
12?0 IF St<:0 THEN 1010 
1280 IF ST>NN THEN ST=SN 
1290 LOCATE , 3 : PBINT'TECLE ' M ' P 
ABA ENCERRAHr": 

1300 IF NN-MX THEN LOCATE 2,18; 
PRINT'MAXIMO NUMEBO DE NOTAS CO 
LOCADAS ! ' t FOR D-ITO 2000 r NEXT: I 
>-SL-X:GOTO 1010 

1310 LINE INPUT N$:IF NS^'M'OB 
N5=-ni''THEN I=SL-1:G0T0 1010 
1320 IF LEN{N$)<3 THEN LOCATE 2 
2, 3:PBINT"ILEGAL" :GOTO 1290 
1330 IF INSTR(R3$.LEFTS(N$,1) )- 
0ORI^JSTH(R2$,MIDS(N$,2.1) )=aORI 
NSTE(E1$,KID3(N$,3,1))=0 THEN L 
OCATE 22. 3:PRINT"ILEGAL" :GOTO 1 
290 NOTAS 

1340 IF MID$<N3,'9,1)="-"THEN NS 
=LEFTS {NS . 4) ELSE NS-LEFTS tNS , 3) 

1350 IF ST-NN THEN 1380 

1360 FOR K=NN+1 TO ST+2 STEP -1 

1370 N$(K)-NS(K-1) :NEXT 

1380 NS(ST+1)-N$ 

1390 ST-ST+1:NN-NN+1 

14 00 GOTO 1290 

1410 LOCATE 1 3.0: INPUT" 3: ALTERA 

R NOTA" ; ST 

1420 IF ST-0 THEN 1010 

1430 IF ST>NN THEN ST=NN 

1440 LOCATE 11, 2: PRINT NS(ST} 

14S0 PT=2&5:LP=-2:I=ST:GOSUB 16 

20 

1460 LOCATE , 2 : PHINT'NOUO WALO 

B:': :L1NE INPUT NS 

1470 IF LEN(NS)<3 THEN 1460 

1480 IF INSTR [R3$, LEFTS CNS, 1) )= 

0OHINSTR(B2S,HIDS CN$. 2. 1) ) =0OHI 

NSTR(RI$,MIDS(N$.3.1J)=0 THEN 1 

460 

1490 IF MIDStNS. 4.1)=". "THEN NS 

=LEFT$(NS.4)ELSE NS=LEFTS (NS , 3) 

1 If 9f 

1500 NS<ST) =NS-GOSnB 1620 : FOR 
K= 1TO2 0OQ r NEXT : RT^O : I=SL- I : LP = 
:GOTO 1010 

1510 IF NN=0 THEN RETURN ELSE C 
LS:COiORl,lS:LOCATE 11,1: PRINT" 
LI STAR NOTAS" 

15 20 C=l :SL=1 : EL=NN : PS="N" :HT=0 
1530 LOCATE 4 . 3 ; INPUT"LISTAR NA 

IMPPESSQRA(S/N) " ; PS 
1540 IF P$='S" THEN C=2 
1550 LOCATE 4 , 5 : INPUT" INICIO EM 

(ENTERS 1)":S:. 
1560 IF SL<=0 THEN SL-NN;EL=NN 
1570 LOCATE 4 . 6 : INPUT" FINAL EM 

tENTER-FIM) " ;EL 
1580 IF EL-0 OR EL>NN THEN EL=N 
N 

1590 IF SL>EL THEN SL=EL 
1600 CLS:LP=0 



Q 



600 P=P-36 

610 IF P-1ANDC<3THEN C-C+1:0CS" 



MIDS(STRS(C) ,2) 

620 IF P-2AND01THEN C-C-1:0CS- 
MIDS{STR$(C) ,2) 

,630 IF (P-30RP'=6)AND LE>1 THEN 
LE-LE-1:LES-MIDS(R1S.LE,1)+' " 
640 IF (P-40RP-7)AND LE<5 THEN 
LE-LE+l:LE$-MIDSfRlS,LE,l)+" " 
650 IF P = 5 THEN IS-"p" : PS=-"" :G0 
TO 700 

660 IF P=60RP"7 THEN LES-LEFTS( 
LES,1)+"." 

670 IF P=8 THEN RETURN 
680 IF P=9 AND NN>0 THEN NN-NN- 
1 

690 GOTO 490 

700 IF IS>-"a" AND lS<»''g" THEN 
P$-CHRSCASC(I$)~3 2) ELSEIF I$< 
>"p" THEN PS-IS+"I"ELSE PS-"" 
710 PLS-"V31;T"+STR$CTE)-i-"L''+L2 
$( INSTR( BIS. LEFTS (LES.l))) 
720 IF MID$(LE3,2,1]-"." THEN P 

LS-PLS+"." 

730 PLS-PLS+"0"+OCS+P$:PLAY PL$ 

740 NN=NN+1:NS{NN)-IS+0CS+LES 

750 GOTO 530 

760 CLS 

770 PHINT64. "ENTRADA MANUAL DE 

NNTAS'':PHINTe33,''ENTRE'm'PARA R 

ETOHNAfl AO MENU" 

780 PRINT"USE FORMATO : ' alh. " (' . 

'OPCIONAD" 

790 GOSUB 280:PRlNTe416, "ENTHE 

STRING NOTA: " 

800 IF NN=MX THEN PHINTe448 , "MA 

XIMO NUMERO DE NOTAS COLOCADO!" 

: FORD°1T01000 :NEXT; RETURN 

810 POKE 282, U:PHINTe44y: PRINTS 

462, ; ; LINE INPUT AS 

820 IF AS^"" THEN 810 

830 IK A$-"»"OH AS-"M"THEN HETU 

RN 

840 IF LEN(AS)>40H LEN(AS)<3 TH 

EN 910 

850 IF (1NSTR{H3$.LEFTSCAS.1)) ) 

-0 THEN 910 

860 IF LEFTS (AS, 1)-"D" THEN A$= 

„p„+- "+HiDS(AS,3) ;GOTO 880 

870 IF (1NSTR(R2S,MIDS(A$,2,1)) 

)-0 THEN 910 

880 IF {INSTHtBl$,MIDS(AS,3.1)) 

)-0 THEN 910 

890 IF M1DSCAS,4,1K>"." THEN A 

$-LEFTS[AS. 3)+" " 

900 GOTO 920 

910 PRIMTe44e,LEFTS{AS.4) ;" -EN 

TRADA ILEGALl": SOUND 1 , 5 : GOTO S 

10 

920 NN-NN+1:NS(NN)-A$ 

930 GOTO 790 

940 IF NN-0 THEN RETURN ELSE PO 

KE 282,0 

950 PRINT§44B,'1:APAGAR NOTA ", 

"2:INSERia NOTAS" . " 3 : ALTERAR NO 

TA ","4:C0NTINUAH' ; 

960 AS-INKEK$:IF A5<"1"0H AS>''4 

"THEN 960 

970 0P-UAL£A$j 

980 ON OP GOTO 1000.1100,1260,9 

90 

990 RETURN 

1000 IF NN-0 THEN 940 ELSE CLS: 

INPUT"INICIA NA NOTA"; ST 

1010 IF ST=0 THEN 940 



1020 IF ST>NN THEN 1000 

1030 PaiNTe64, "QUANTAS APAGA{EN 

TER=1)"; : INPUT ND 

1040 IF ND<-0 THEN ND=1 

1050 IF ST+ND-1>NN THEN ND=NN-S 

T+1 

1060 FOR I"l TO ND 

1070 FOR J=ST TO NN-1 : NS ( J3 -N3 t 

J+1) :NEXT 

1080 NN-NN-1 

1090 NEXT I: RETURN 

1100 CLS : PRINTS 7. "MODO INSERCAO 

DE NOTAS" 
1110 PRlNTe64, "INICIA INSERCAO 
APOS QUE NOTA": INPUT ST 
1120 IF ST<0 THEN 940 
1130 IF ST>NN THEN ST-NN 
1140 PEINT§64."TECLE'Bi'QUAND0 V 
OCE TERMINAR" : PRINT 
1150 IF NN-MX THEN PRINT'MAXIMO 
NUMERO DE NOTAS COLOCADO !" :FOR 
D"l TO 1000: NEXT; RETURN 
1160 INPUT HS:IF NS-'M'OB NS-"lll 
"THEN BETUBN 

1170 IF LEN(N$J<3 THEN PRINT"IL 
EGAL":GOTO 1160 

1180 IF INSTB<R3S,LEFT$(NS,11 )- 
OORINSTR (R2S , «IDS (NS , 2 , I) ) -OORI 
NSTR(H1S.MID$(NS,3,1) )-OTHEN PR 
INT"1LEGAL":G0T0 1160 
1190 IF MIDS{NS,4,1)-" . "THEN NS 
-LEFTS {NS. 4) ELSE NS=LEFT3 {N3. 3 
)+" " 

1200 IF ST=NN THEN 1230 
1210 FOR I-NN+1 TO ST+2 STEP-1 
1220 NS{I)-NS{I-1) :NEXT 
1230 NS{ET+1)-N$ 

1240 ST-ST+1 :NN-NN+1 

1250 GOTO 1150 

1260 CLS: PRINT "MUDAR QUE NOTA"; 

: INPUT ST 

1270 IF ST=0 THEN 940 

1280 IF 3T>NN THEN ST=NN 

1290 PRINT: PRINT'VALOR ATUAL : " : 
AS=NS{ST) ;RT-255:GOSUB 350 

1300 PRINT NS{ST) 

1310 PRINTe3ZO:PRINTe320,"" ; : IN 

PUT "NOVO VALOR:" ;N3 

1320 IF LEN(NS)<3 THEN 1310 

1330 IF INSTR(H3S.LEFTS(NS,1) )=■ 

OORINSTB Cfi2$ .MIDS (N$ , 2.1)) =0OB 

INSTR(H1$,MID$(NS,3,1) )=OTHEN 1 

310 

1340 IF «IDS(NS,4,1)="." THEN N 

S-LEFTS(NS.4)ELSE NS-LEFTS (N3 , 3 

)+" » 

1350 Nf:(ST)-NS:FORK»lT02000:NEX 

T:OOTO940 

1360 IF NN'OTHEN RETURN ELSE CL 

S: PHlNT«i7, "Ol'CAO l.liJTAH NOTAi!" . 

C-0 

1370 IF tPEEK(65314)ANDl)=l THEN 
1400 

1380 POKE 282, 255:PRINTi464, "•' ; ; 

INPUT^LISTAR NA IMPFIKIJSUHA (S/(J) 

" ;PS 

1390 IF eS="S" THEN C=-2:P0KE 1 

50,1 

1400 PRINTei28,"lNICI0 NA NOTA" 
: : INPUT ST 

1410 IF ST<=0 THE« ST»NN 

1420 IF ST>NN THtN LIT^NN 

1430 CLS:LP='0 
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Aprenda a explorar todas as 
possibilidades do teclado do TRS-80 
e a utiliz^'lo de forma criativa. 
Comandos PEEK e POKE garantir3o 
sucesso de suas experiSncias. 



Nos artigos anleriores desta s^rie, 
examinamos os recursos "secretes" do 
micro TRS-80 para a saida de video. En- 
tre outras coisas, vimos como gerar 
pseudo-sprites e como levar c6pias de te- 
las para a mem6ria e vice-versa. 

O teclado do TRS-80 tambem lem va- 
rias caracteristicas interessantes, que nao 
esiao bem documentadas nos manuais de 
operafao ou mesmo nos tivros mais ele- 
mentares sobre o assunto. Neste artigo, 
voce aprendera aiguns iruques que po- 
dem ser executados com facilidade, co- 
mo o bloqueio da tecla < BREAK > , a 
implementapao de um cursor piscante, a 
programaf ao da rcpetigao automatica de 
teclas e a entrada direta de simbolos gr^- 
ficos pelo teclado. 

Esses recursos sao possiveis porque 
a meradria do TRS-80 contem o mapa 
do teclado, assiiti como o do video. O 
teclado desse micro i do tipo matricia!, 
ou seja, ao se pressionar uma tecla, ela 
aciona o cruzamento entre dois condu- 
tores: um colocado nas colunas, e ou- 
tro, nas linhas. Isso gera um codigo bi- 
nario, que e recuperado pelo software 
processador do teclado. Este efetua uma 
varredura a intervalos de alguns railis- 
segundos, passando por todos os fios 
horizontais e verticals. O niimero obti- 
do e depositado em uma loca^ao espe- 
cifica da mem6ria de teclado. 

Diversas outras locagoes da memdria 
RAM reservada para a area de trabalho 
do interpret ador BASIC sao dedicadas 
ao teclado. Atraves de comandos PEEK 
e POKE, € possivel verjficar, e mesmo 
aJterar, seu contetido, produzindo curio- 
sos e variados efeitos. 



BLOQUEIO DA TECLA < BREAK > 



Como vocfi )i sabe, a tecla 
< BREAK > do TRS-80 interrompe um 
programa BASIC em execu(;ao, indepen- 
dentemente do que eie estiver fazendo, 
e retorna o controle ao interpretador. 

A facilidade de interromper o progra- 
ma pode ser um inconveniente quando 
se deseja torna-lo imune a erros de ope* 
ragao ou se quer impedir que algudm o 
liste. Imagine a seguime situa<;:ao: vo- 
ce colocou um programa educative nas 
maos de uma crian^a; ao aparecer a 



mensagem "PRESSIOf^ QUALQUER 
TECLA PARA CONTINUAR", ela 
aciona justamente a tecla < BREAK > ! 
A culpa, com certeza, e sua... 

Para evitar ocorrencias desse tipo, 
convSm bloquear o efeito da tecla 
< BREAK > atraves de comandos POKE 
nas locagoes de mem6ria 16396 e 16397: 

POKE 16396. 175:POKE 16397,201 

Para ativar novamente a tecla, basta 
utilizar o comando: 

POKE 16396.201 

Esse truque funciona em qualquer 
micro compativel com os modelos 1 e [II 
da linha TRS-80, e pode ser empregado 
tanto como comando direto quanto den- 
tro de um programa. 

Ha um problema, entretanto. Se vo- 
ce estiver usando o BASIC de disco, e 
' tentar acessd-lo durante a desativa^ao da 
tecla < BREAK > , o computador pode- 
rd "congelar". Para evitar que isso 
acontefa, aconselha-se recorrer a outra 
loca^ao de memdiria para dar o coman- 
do POKE. Nao se esquepa, porem, de 
que esta varia de acordo com o sistema 
operacional de disco (DOS) empregado; 

DOS DESATIVA ATIVA 

TRSDOS2.3 POKE 23886,0 POKE2M6,I 

NEWD0S2.1 POKE 23461,0 POKE 23461,1 

NEWiX>S80 POKE 19408,0 POKE 19408,1 

A maioria dos micros nacionais da li- 
nha TRS-80 utiliza sistemas compativeis 
com TRSDOS (pronuncia-se (hsdos). 
Se seu micro usa a versao CP/M, voce 
nao podera desativar a tecla < BREIAK > 
por meio da operagao sugerida. 

Um aviso final: se seu programa ain- 
da nao foi gravado, tenha muito cuida- 
do ao usar esse truque, assegurando que 
a tecla < BREAK > possa ser reativa- 
da. Caso contr^rio, voce poderi ficar na 
desagradavel situa^ao de nunca mais po- 
der listar seu pr6prio programa! 



AUTO-REPETigAO 



Os modelos da linha TRS-SO I e III 
(como o Prologica CP-500) nao tem a 
capacidade de repetigao automatica das 
teclas — ou seja, as teclas nao se auto- 



repetem durante o perfodo em que es- 
tao sendo pressionadas. 

Este t um recurso titil para uma sd- 
rie de aplicagoes: por exemplo, jogos em 
que o movimento de um cursor ou o dis- 
paro de uma metralhadora sao contro- 
iados por teclas auto-repetitivas. 

Ha uma maneira, porem, de saber se 
uma tecla continua sendo pressionada 
ou nao, o que nos permite implementar 
uma rotina de repeticao. Se o valor da- 
do por um PEEK(14591) for igual a 0, 
nenhuma tecla estd sendo pressionada; 
se esse valor for major que 0, uma tecla 
esta sendo pressionada. 

Para entender como funcionaria um 
la^o simples de repeti^ao, digite; 

10 PRINT PEEKtl4591} ; :G0T0 10 

Ao ser executado, o programa impri- 
me uma seqtiencia de zeros na tela. 
Quando uma tecla e pressionada, esse 
valor muda. Note que cada tecla ou 
combina^ao de teclas (pressionadas jun- 
to) tem um valor diferente, que nao cor- 
responde ao valor ASCII da tecla. 

Para aplicar esse expediente, identi- 
fique OS niimeros das teclas que deseja 
usar para direcionar a 16gica de deter- 
minado programa e introduza varios IF 
dentro do mesmo. Se voce quiser utili- 
zar OS valores ASCII gerados por cada 
tecla pressionada, precisara de um IF 
para testar se a tecla continua pressio- 
nada, e outro para localizar essa tecla. 

Como exemplo, execute este progra- 
ma. Ele desloca um cursor pela tela, sob 
o controle de quatro teclas (flechas). 

10 CLS:X-64:y-24 

15 SETtX.Y) 

20 IF T*>0 AND PEEK ( 14591} >0 

THEN 50 

25 TS=INKEYS:IF TS="" THEN 25 

30 Tt=ASC<T$) 

50 IF Tl=6 THEN X=X-1;G0T0 15 

60 IF T»=9 THEN X-X+1 :GOTO 15 

70 IF T»-91 THEM lf»V-l;G0TO 15 

80 IF T»=10 THEN V=y+llG0TO 15 

90 GOTO 25 

A linha 10 do programa define a po- 
sifao iniciaJ do cursor (um pequeno pon- 
to na tela), "aceso" pelo comando SET, 
com as coordenadas X e Y na tela. 

A linha 20 verifica se aJguma tecla es- 
td sendo pressionada — ou seja, se o va- 
lor T'^i'o (codigo ASCII da tecla, deter- 
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TRUQUES COM TECLADO 



COMO DESATIVAR 



A TECLA < BREAK > 



ROTINA PARA A 



REPETigAO AUTOMATICA 



DAS TECLAS 



CURSOR DE TEXTO 



PtSCANTE 



ENTRADA DtRETA 



DE StMBOLOS GRAFICOS 



minado na linha 30) e o conteudo da me- 
mdria 14591 sao, simukaneamente, 
majores que 0. Em caso afirmativo, o 
programa puia para a linha 50, que ini- 
cia varies testes para identificar qual das 
tcclas com flecha foi pressionada. As 
coordenadas X e Y sao alteradas para 
mais ou para menos, e um outro ponto 
e aceso na tela na nova postc^o. A li- 
nha 20 testa mais uma vez se essa tecia 
continua pressionada, executa um des- 
locamento e assira por dJante. 

Sc nenhuma teda estiver sendo pres- 
sionada, programa vai para a linha 25, 
que cria um ia?o de varredura do tecla- 
do com a fun^ao INKEV$. Essa linha 
se repete at^ que se pressione alguma te- 
cia, Entao, o valor ASCII da lecla e 
identificado e armazenado em T%, pe- 
la linha 30. A partir dai, o micro se com- 
porta como se tivesse a capacldade de 
repeti^ao automdtica das teclas. 

Observe que, se nenhuma das quairo 
tcclas com flecha tiver sido pressiona- 
da, o programa retorna ao la<;o de es- 
pera situado na Linha 25. 

Ao executar esse programa, tenha o 
cuidado de nao ultrapassar os limites da 
tela com o cursor, para que nao ocorra 
um erro na linha 15. Se quiser melho- 
rar o programa, introduza testes para as 
alterafoes de X e Y, de modo a impedir 
que eles ultrapassem os vaiores minimo 
e maximo da tela, 



CURSOR PISCANTE 



Normalmente, o cursor de texto do 
TRS-80 e um trago de sublinhar, nao 
piscante. Nao e facil localiza-lo com a 
tela cheia de texto. A dificuldade au- 
menta em aplicagoes de deslocamento 
bidimensional do cursor, sobretudo se 
ele se sobrepoe a um trecho grdfico. 

Um bom recurso consiste em fazer o 
cursor piscar repetidaraente, distinguin- 
do-se dos caracteres de fundo. No 
TRS-80, porem, s6 se obtem esse efeiro 
por meio de software, jd que nenhum de 
seus comandos permite aiterar a fungao 
do ciirsor. Portanto, a rotina precisa ser 
suficientemente rdpida para nao "segu- 
rar" o usuArio que esti digitando o tex- 
to a uma certa velocidade. 

Um problema adicional e fazer o cur- 



sor piscar quando esta sobre um carac- 
tere ja impresso. Nesse caso, devemos 
copiar o valor do caractere em uma va- 
ri^vel, antes de piscar, e recoloca-lo na 
tela. Os comandos PEEK e POKE des- 
ta rotina encarregam-se disso; 

iOO TS=INKElfSr IF TSO"' THEN 

120 

110 POKE Xt. 95: POKE X*,C*:GOTO 

100 

120 RETURN 

Antes de chamar a rotina, coloque a 
posigao atual do cursor em X%. Este e 
um valor entre 15360 e 16383, numeros 
que correspondem as ioca^Ses da me- 
mdria de video na RAM. Para obte-lo, 
examina-se o conteudo das mem6rias 
16416 e 16417, O valor ASCII do carac- 
tere nessa posi^ao deve ser colocado em 
C%. Assim, a rotina poderd fazer o cur- 
sor piscar, ap6s verificar o c6digo arma- 
zenado na [oca^ao X*/o de video: 

10 X*-PEEK(164I7}*256+PEEK 

(16416) 

20 C*-PEEK(Xi) 

30 GOSUB 100:PEINT TS;:GOTO 10 

A linha 30 chama a rotina e imprime 
caractere que se pressionou, retorna- 
do pela sub-rotina em T$. A volta a li- 
nha 10 tern o efeito de deslocar o cur- 
sor uma posi^ao & direita no video, rei- 
niciando a rotina de piscar o cursor. 

Essa rotina permite ainda que se mo- 
difique a forma do cursor. Note que 
usamos o c6digo ASCII 95, que corres- 
ponde ao trapo de sublinhar. Para co- 
locar na tela um retangulo s61ido, subs- 
titua 95 por 191, na linha 110. 



GRAFICOS PELO TECLADO 



Como vimos em artigo anterior (pdgi- 
na 1259), o emprego da rotina INKEVS 
no lugar do comando INPUT possibili- 
ta a entrada dos caracteres grdficos do 
TRS-80 diretamente pelo teclada Assim, 
se usarmos uma combinacao das teclas 
< SHIFT > e <LINEfEED> (teda pa 
ra baixo), leremos o mesmo efeito da te- 
da < CONTROL > de outros computa- 
dores, e poderemos gerar c6digos ASCII 
diferentes, pelo teclado. Se pressionar- 
mos, por exempio, a tecla A, iuntamente 




VARREDURA DO TECLADO 

A funpao INKEYS 6 bastante util pa- 
ra se detectar, dentro de um programa, 
se alguma tecla foi pressionada. Mas, 
^s vezes, ela n§o 6 suficiente para sa- 
tisfazer certas necessidades do progra- 
mador — como indicar se duas ou mais 
teclas foram pressionadas simuitanea- 
mente, ou detectar o acionamento de 
uma tecla que nao gera um c6digo atra- 
v6s do INKEYS, como < SHIFT >. 

Conhecendo a organizaqao do tecla- 
do, por6m, esse tipo de verif icagao nao 
oferece dificuldade teclado 6 disposto 
na forma de uma matriz. Quando uma 
tecla 6 pressionada, umdeterminado va- 
lor num^rico entre 1 e 128 (potincias 
de 2) & depositado na mem^ria RAM 
correspondente a uma fileira (um dos se- 
guintes endereQOs: 14337, 14338, 
14340, 14344, 14352, 14368, 14400 
ou 14464). A correspondfincia entre te- 
cla e enderepo nos permite identificar a 
tecla ou teclas pressionadas. Por exem- 
pio, a tecla <SHIFT>, quando pressio- 
nada, gera o cddigo 1 na toca^ao de me- 
m6rta 14464. 

Quando duas ou mats teclas s3o 
pressionadas simultaneamente, geran- 
do c6digo5 no mesmo enderego, o nu- 
mero resultante 6 a soma dos c6diQos 
individuals. Assim, se J, K e L forem 
pressionadas, o ntimero 4-t-8+ 16 = 
28 serS colocado no enderego 1 4338- 

Para mootar sua pr6pria tabela de 
corresponddncia entre tectas e vaiores, 
faga um programa de uma linha, usan- 
do um PEEK para examinar o conteu- 
do de cad a uma das mem6rias dentro 
de um lago infinito. 



com as antertores, geramos o c6digo AS- 
CII L Detectando esse codigo na rotina 
INKEYS, bastard soma-to ao valor 128 
para obtermos em T$ (varidvel de saida) 
o grifico correspondente, que tambem 
serck impresso na tela. 

Substitua a linha 130 por: 



130 IF ASC{T*)<32 

Tt+128) 

140 RETURN 



THEN T$-CHHS( 




Neste aiiigo, examinaremos novas 
t^cnicas de compressao de textos. 
Com as vcirias alternativas dadas, nao 
ser^ dificil reduzir o espapo 
de memdria ocupado [Xtr seu jogo. 



Como vimos no artigo da pagina 
1332, podemos conseguir um alto indi- 
ce de compressao de textos atraves da 
utilizapao de um conjunto reduzido de 
caracteres (s6 tetras maitisculas e alguns 
sinais de pontua^ao) e da compactagao 
dos cddigos resultantes em um niimero 
menor de bits. Examinamos tambem o 
uso da estatistica de ocorrencia de letras 
e outros simbolos em um texto, para ob- 
ter um codigo progress! vo de quatro 
bits. O procedimento garante uma gran- 
de eficiSncia de compressao (cerca de 
45%), envolvendo um programa relati- 
vamente simples em BASIC, para codi- 
fica^ao e decodificafao. 

xNeste artigo, apresentaremos outros 
metodos de compressao de textos, Um 
deles, conhecido como m^todo chines, 
mostra-se particularmente litil para a 
compressao de textos muito longos e 
com repeticoes freqiientes de um con- 
junto reduzido de paJavras — o que, cer- 
tamente, nao e prdprio de programas de 
aventuras. De qualquer maneira, esse 
metodo completa o leque de alternati- 
vas de compressao de textos e, dada a 
sua efrcicia, podera ser aproveitado em 
outros tipos de programa. 



UM SUPERCOMPRESSOR 



O algoritmo estatistico de compres- 
sao de textos, que estudamos no artigo 
anterior, toma como base a diferenga de 
freqiiSncia das letras em um texto para 
construir um sistema de cbdigos em que 
OS caracteres de maior uso tem um nti- 
mero menor de bits. Para facilitar a pro- 
gramacao em BASIC desse algoritmo, 
limitamos a quatro o niimero minimo de 
bits por caractere. Poderiamos, entre- 
tanto, utilizar um niimero ainda menor 
de bits para as letras mais freqiientes: 
dois ou tres, por exemplo. Com o esque- 
ma adotado anteriormente — em que se 
usa um nibble para assinalar a mudan- 
fa de "dicionirios" de c6digos — , os 
ganhos da compactafao seriam mini- 
mos, pois, com a mudanga constante de 
dJciondrios, q niimero de zeros acaba- 
ria se tornando muito elevado. Portan- 
to, para a codificagao com um niimero 
menor de bits, aquele esquema nao ser- 
4,4 viria. 
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DESCOMPRESSAO 



METODO CHINES 



CODIFICACAO POR DICIONARI OS 

DECODIFICA CAO 

VANTAGENS E DESVANTAGENS 




ESQUEMA DUPLO DE CODIFICACAO 



E possivel empregar, por^m, um me- 
todo mais eiaborado, que adota um es- 
quema duplo de codificafao: 

- quanto mats freqiieme a letra no 
texto a ser codificado, menor i o nume- 
ro de bits usado para seu codigo. For 
exemplo: o espa^o (caractere mais fre- 
qiiente em qualquer texto) tern um c6- 
digo bindrio de tres bits (01 1); a letra E, 
de cinco bits (10111). Ja a letra P, nao 
tao freqiiente, tern um c6digo de seis bits 
(110110), e a letra Z, de oito bits 
(11111100); 

- certos pares de letras muito corauns 
em um texto tambem recebem um c6di- 
go bindrio reduzido. O esquema de co- 
dificafao e o mesmo das letras, mas o 
efeito de compressao e bem mais pode- 
roso, ji que estamos substituindo dots 
bytes (dezesseis bits) por um numero 
muito menor de bits no novo c6digo. 



CALCULO DA FREQUENCIA DE PARES 



Apresentamos, a seguir, um progra- 
ma destinado a computar e exibir os pa- 
res de letras mais freqiientes em um tex- 
to. Ele usa a mesma tecnica do progra- 
tna que determina a freqiiencia simples 
dos caracteres, fornecido no artigo an- 
terior. 

Em primeiro lugar, o programa ini- 
cializa os conjuntos L — que conter^ a 
freqiiencia de pares que comepa com ca- 
da caractere ASCII, de 32 a 90 — e F 
— que contera em cada casela F(I,,J) a 
frequencia acumulada pelo par de carac- 
teres com c6digos I e J. 

Em todas as versoes, excel o a do 
Spectrum, o sinal "In depois de L e F ser- 
ve para definir como inteiro o tipo do 
conjunto. Isso economiza memdria e au- 
menta a velocidade de processamento. 
As linhas 20 a 40 nao sao necessArias nos 
computadores que inicializam em to- 
das as varidveis num^ricas, quando 
RUN € digitado. 



Eia^'g[l][^ 



10 DIM LI t60) ,F1 (60,60) ,Ct (60) 



20 NT-0:NP-0 

30 FOR I-l TO 60:Lt(I)-0 

35 FOR J=l TO 60 

40 Ft{l,J)-0:NEXT JiNEXT I 

Coloque um comando CLEAR 3000 
na linha 10, antes da declara^ao DIM, 
para o TRS-80 e TRS-Color. 



10 DIM L(60) ,f C60,60] ,c(60) 

20 LET nt-OrLET np-0 

30 FOR i-l TO 60: LET L(i)-0 

35 FOR j-1 TO 60 

40 LET f <i.3)=0;NEXT jiNEXT i 

A parte seguinte do programa prin- 
cipal le as linhas DATA que contem o 
texto a ser codificado. Para fins de tes- 
te, voce poderd recorrer ao texto de ins- 
tru^oes de uma aventura, dado no arti- 
go anterior, acrescentando-o ao final 
deste programa. 

DE1^[2][^ 

60 PRINT "ANALISANDO. . . " 

70 READ LS:IF LS="*" THEN 100 

75 PRINT L5;LT=L£N(LS) 

80 NT^NT+LT 

85 IF INT(LT/2)<>LT/2 THEN LS" 

,L$+- - 

90 GOSUB 52 0:GOTO 70 



60 PRINT "ANALISANDO..." 

70 READ LS:IF 15="*" THEN GOTO 

100 

75, PRINT LS = L£T LC = LEN L£ 

80 LET nt-nt+I.t 

85 IF INT Lt/2 <>Lt/2 THEN LET 

LS-L5+" " 

90 GOSUB 520:GOTO 70 

Um asterisco na linha de texto (L$) 
indica o fim do mesmo. Case o texto 
nao ten ha terminado, calcula-se o com- 
primento LT de L$. Se LT for impar, 
<t precise acrescentar um cspapo em 
branco ao final de LS, para que a roti- 
na de contagem efetue corretamente o 
cdlculo e a extra^ao de pares de carac- 
teres. Isso e feito peta linha 85, que ve- 
rifica se o resto da divisao de LT por 2 
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e maior que (se for, e impar). Final- 
mente, a linha 90 chama a rotina de con- 
tagem, que come?a era 520: 



500 
520 
525 
530 
540 
545 
550 
560 
570 



500 
520 
525 
530 
540 
545 
550 
560 
570 



REM - ROTINA DE CONTAGEM 

FOR 1=1 TO LEN{LS)-a 

NP=NP+1 

C1=ASC(MIDS(L$,I , 1) )-31 

C2 = ASC (MIDS CLS . I + l , 1) ) -31 

LI (Cl)=Lt (Cl)+1 

Fi (CI ,CZ) =F* (C1,C2)+1 

NEXT I 

RETUHN 



REM - ROTINA DE CONTAGEM 

FOR 1-1 TO LEN LS-1 

LET ny=np+l 

LET cL=ASe{L$.i TO i)-31 

LET c2-ASC(LS.l to i+l)-31 

LET L(cl)-=L(cl)+l 

LET f (cl,c2)-f (rl,cZ)+l 

NEXT I 



RETURN 



A rotina de contagem € muito sim- 
ples; la?o que vai da linha 520 a 560 
percorre LS tomando urn caractere por 
vez. As vari^veis Ct e C2 conterSo os 
codigos ASCII do primeiro e do segun- 
do caracteres de um par. Subtraindo o 
valor 31 desse cridigo, obteremos um nu- 
mero compreendido entre 1 (espa^o) e 
58 (letra Z). CI e C2 servirao assim co- 
mo indices para acumular a casela cor- 
reta de F e de L. 

O programa principal termina quan- 
do se atinge o final do texto e a rotina 
dos resultados e chamada. 

100 PRINT "TOTAL: ' : NT ; ' CARACT E 
RES E " -.UP; -PARES" 
120 GOSUB 780 
140 STOP 

A rotina de exibi^ao, que come? a em 
780, utiliza uma rotina de ordenagao pa- 
ra mostrar os resultados em ordem de- 
crescente, ou seja, os pares mais fre- 
quentes em primeiro tugar. 

660 REM - ROTINA DE ORDENACAO 

690 N"=60 

695 FOR J=i TO 60 :Ct ( J) =»J :NEXT 

700 FL=0 

710 N"N-l!FOH J-l TO N 

.720 IF Ft tI.C*{J))>»Ft (I,C1{J+1 
|,lj ] ) THEM GOTO 740 



:CIIJ)=C*(J+1) :CI(J 



730 X=Ci(J) 

+ l)=X:FL='l 

740 NEXT J 

7 50 IF FL-0 OR N-2 THEK RETURN 

760 GOTO 7 00 

770 REM - ROTINA DE IMPRESSAO 

780 NL-0: PRINT 

790 PRINT "FREQUENCIA DE PARES 

NO TEXTO" : PRINT 

600 FOR 1=1 TO 60:IF Litl)=0 TH 

EN SSO 

805 GOSUB 690 

610 FOR J=l TO 60 

815 X-C»{J):IF Ft(I,X)=0 THEN 

GOTO BZ5 

820 PRINT CHR$(I+31)+CHRSCX+31) 

"Ftd X)*" "* 

82S NEXTJ: PRINT 

830 NL-NL+1:IF NL<15 THEN GOTO 

850 

840 tJL = 0: INPUT "PRESSIONE <ENTE 

R> ";XS 

850 NEXT I : PRINT 

860 RETURN 



680 REM - ROTINA DE ORDENACAO 

690 LET n-60 

695 FOR j-1 TO 60 : LET c(j)-j 

700 NEXT j:LET fL-0 

710 LET n'Ti-liFOa j = l TO n 

720 IF f (i,c(j))> = f (i,c tj-t-Dl 

THEN GOTO 740 

730 LET ji'C(j);LET cCj)=c(j-H): 

LET c( j+1) ^x: f L=l 

740 NEXT J 

750 IF fL=0 OR n-2 THEN RETURN 

760 GOTO 700 

770 REM - ROTINA DE IMPRESSAO 

780 LET nL-0: PRINT 

790 PRINT "FREQUENCIA DE PARES 

NO TEXTO" : PRINT 

1 TO 60: IF L(i)=0 THE 

690 

1 TO 60 

c< J) : IF f (i ,x) =0 THEN 

CHRS 1 + 31 -tCHRS x+31 

n . 

: PRINT 

= nL+l:IF nL<l5 THEN r: 

= 0: INPUT "PRESSIONE <■ 

$ 

: PRINT 



800 FOR 1= 
N GOTO 850 
805 GOSUB 
810 FOR j= 
815 LET X 
GOTO 825 
820 PRINT 
:f (1 .X) r" 
8 25 NEXT .1 

LET nL 

850 

LET nL 
ENTER> ";x 
850 NEXT 1 
860 RETURN 



830 
OTO 
840 



Para nao alterar a matriz F, a rotina 
de ordenagao utiliza um conjunto C, 
que funciona como indice -^ para isso, 
ele t inicializado no comedo da rotina 
(linha 695), de modo a conter os nsime- 
ros 1,2,3 etc. A ordena^ao (do tipo bo- 
Iha) coloca esses numeros em uma or- 
dem diferente. 

A sub-rotina de impressao examina 
cada uma das linhas da matriz F. Se o 
total L(I) da linha I for 0, nao se regis- 
trou a ocorrencia de nenhum caractere 




com c6digo I -I- 31 no texto. Do contrd- 
rio, o programa chama a rotina de or- 
denacao. O laco que vai da linha 810 & 
825 imprime todos os pares cuja fre- 
quencia e maior que 0. A variavel-indice 
X, extraida de C, e usada para mostrS- 
los em ordem decrescente. 

Se voce quiser ver apenas os dois pa- 
res mais freqiientes para cada caracte- 
re, modifique a linha 810 para: 

810 FOR J=l TO 2 



(VIETODO CHINES 



A tecnica de compressao explicada a 
seguir apresenta um alto nivel de eficien- 
cia, dependendo do texlo a codificar e 
de sua extensao, Trata-se, na realidade, 
de uma generalizagao do algoritmo de 
codifica^ao por pares de letrasr se po- 
demos empregar codigos numericos pa- 
ra representar os pares de caracteres 
mais freqiientes em um texto, a fim de 
comprimi-Io, e possive! tamb^m usar 
triadcs dos caracteres mais comuns. Na- 
turalmente, essa abordagem se torna- 
ria cada vez mais inviAvel, a medida que 
aumentissemos as dimensoes da matriz 



^■|4« 
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F; de 3.600 elementos, para contagem 
de pares, para 216.000 elementos, para 
contagem de triades etc. 

E por que nao montar um diciona- 
rio com palavras completas? Cada pa- 
lavra receberia um codigo numerico de 
oito ou de dezesseis bits, e o texto seria 
composEo por uma seqiiSncia desses c6- 
digos. Para reconsthui-lo, bastaria bus- 
car no dicionario a palavra correspon- 
dente a cada niimero. 

Esse sistema e chamado metodo chi- 
nes, pois as palavras em chines nao sao 
formadas a partir de um pequeno con- 
junto de fonemas ou si'labas, come nos 
idiomas ocidentais, mas de figuras uni- 
cas, OS Jdeogramas, que correspondem 
a codigos. 

Aideia pode ser muito boa para uma 
linguagem natural, mas nao devemos 
nos esquecer de que, no computador, o 
dicionario tambem precisa ser armaze- 
nado. Assim, para se conseguir o efeito 
de compressao, e necessdrio que o resu!- 
lado da soma do niimero de bytes obti- 
do no processo com o numero de bytes 
gasto com a armazenagem do diciond- 
rio na memdria seja menor do que o nu- 
mero de bytes do texto nao comprimi- 
do (original). A taxa ou eficigncia de 



compressao e dada peia divisao de um 
valor pelo outro. 

Para entender como funciona esse al- 
goritmo e verificar se e capaz de com- 
primir o texto-exemplo usado antes, di- 
gite e execute este programa. 



10 DIM F (200) ,C[200) ,P$ C200) , F3 

(50) 

20 NT=0:NP=0: 

NL=0:NF-0 

FOR 1=1 TO 200 

FtI)=0:CCI)=I 

NEXT I 

PRINT "ANAT.ISANDO. . ." 

READ L$!lF !$="*" THEN GOTO 



;NR=0:L 
ET 
30 
40 
50 
60 
70 
100 

75 NL=NL+1 
80 NT=NT+LEN{LS) 
85 GOSUB !.10 

90 NF = NF + t.£N(FS(NL) ) :G0T0 70 
100 PfllNT "TOTAL: " .NT; "CARACTE 
HES E "iNP; "PALAVRAS" 
110 PRINT "DICIONARIO COM " ; NH ; 
"CAHACTERES. " 
US PRINT "TEXTO COMPHIMIDO COM 

";NF; "CABACTERES" 
120 PRINT "ORDENANDO. . . " 
130 G0."5UB 690: GOSUB 780 



250 STOP 

500 REM - ROTINA DE CONTAGEM 

510 LS = LS + ' ":I = 1:L--1 

520 C=ASCtMIDS(L$, I ,1) ) 

IF C032 THEN GOTO 560 
I-=I + 1:IF I<LEN(LS) THEN 
GOTO 520 
S50 RETURN 
560 L=I 

C-ASC(MIDS!L$,1,1)) 
IF C-32 THEN GOTO 610 
1 = 1 + 1 :IF I = <LEN{LS) THEN 
GOTO 570 
60 RETURN 

610 XS=MID$(L$,L,I-L) 
620 FOR N=l TO NP 
630 IF XSOPStN) THEN GOTO 640 
635 F(N)=F(N)+1:FS{NL}=FS{NL)+ 

CHR${N) :GOTO 520 
640 NEXT N 

650 NP=NP+1:F (NP)=1 ;PS(NP) =XS 
660 NR=NR+LEN(XS) :FSCNL)-F$(NL) 

+CHRS(NP) 
670 GOTO 520 

580 REM - ROTINA DE ORDENACAO 
690 N=NP 
700 FL^O 

710 N-N-1:F0R 1=1 TO N 
720 IF F(C(I))=>FCC{I+1) 
GOTO 74 

730 X=C{I) :C{I)^C(I+1) 
735 C(I + 1)=»X:FL=1 
740 NEXT 1 



525 
540 



570 
575 
590 



THEN 



141 
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750 IF FL-0 OR N-2 THEN RETURN 

760 GOTO 700 

770 REM - ROTINA DE IMPBESSAO 

780 NX-0 

790 PRINT -FREQUENCIA DE PALAVH 

AS NO TEXTO"; PRINT 

600 FOR I-l TO NP 

820 PRINT I;PS<C(in .F(C(IJ ) 

830 NX-NX+1;IF NX<15 THEN GOTO 

850 
840 NX«0: INPUT 'PHESSIONE <ENTE 
R> "jXS 

850 NEXT I: PRINT 
860 RETURN 

Os usuirios do TRS-80 e do TRS- 
Color devem colocar um comando 
CLEAR 3000 antes do DIM, nalinha 10. 



10 DIM f C200) ,c(200) ,p${200,15) 

.fS(50) 

20 LET nt=0:LET np=0;LET nt=0:L 

ET til = 0:LET nf=0 

30 FOR 1=1 TO 20 

40 LET f (i)=0'LET c(l)-i 

50 NEXT I 

60 PRINT 'ANALISANDO, . ." 

70 HEAD LS:1F LS="*" THEN GOTO 

100 

7!. Lt:T nl=nl+l 

ao LET nt-nt+LEN LS 

85 COSUB 510 

90 LET nf=nf+LEN f$(nl) : GOTO 70 

100 PRINT -TOTAL: " ; nt : "CARACTE 

RES E ' :np;"PALAVRAS" 

110 PRINT "DICIONAHIO COM ' s nr i 

"CARACTERES. " 

115 PRINT "TEXTO COMPBIMIDO COM 

■jnf;- CARACTERES" 
120 PRINT "OfiDENANDO. . ." 
1:30 GOSUB 690:GOSUB 780 
250 STOP 

500 REM - ROTINA DE CONTAGEM 

510 LET LS"LS+' "sLET i=l:LET L 

= 1 

520 LET c-ASC LSCi TO i] 

525 IF c<>32 THEN GOTO 560 

540 LET 1=1+1: IF i<LEN LS THEN 

GOTO 520 
55 RETURN 
560 LET L-i 

570 LET c-ASC LS(i TO i) 
575 IF c-32 THEN GOTO 610 
590 LET i-i+l:IF i-<LEN LS THEN 

GOTO 570 
600 RETURN 

610 LET JCS-L3(L to I-l) 
620 FOR n-1 TO NP 
630 IF xSOpSCn] THEN GOTO 640 
635 LET f (n)-f (n)+l:LET fS(nl)- 
fS(nl)+CHBS(n) :GOTO 520 
640 NEXT n 
650 LET np-np+l:LET f{np)-l:LET 

p3 Cnp) =xS 
660 LET nr-nr+LEN xS:LET fSCnl 
)='f$(nl)+CHHS{np) 
670 GOTO 520 
4jg 680 REM - ROTINA DE ORDENACAO 



690 LET n=np 

700 LET fl-0 

710 LET n=n-l;FOR i=l TO n 

720 IF f (c(i)}->f Cc{i+1)) THEN 

GOTO 740 

730 LET x=c(i):LET c{i)=cti+l): 

LET c(i+l)-x:LET fl-1 

740 NEXT i 

750 IF fl=0 OR n=2 THEN RETURN 

760 GOTO 700 

770 REM - ROTINA DE IMPRESSAO 

780 LET nx=0 

790 PRINT "FREQUENCIA DE PALAVH 

AS NO TEXTO": PRINT 

800 FOB i'l TO np 

820 PRINT i;p5(c(i)) ,C(cti) ) 

830 LET nx=nx+l:IF nx'.:i5 THEN G 

OTO 850 

840 LET rix=0: PRINT "PRESSIONE < 

ENTER> " : INPUT x$ 

850 NEXT 1 'PRINT 

860 RETURN 

A parte principal do programa € a ro- 
tina de extra$ao de palavras, que vai da 
linha 500 k 670. 

Para identificar e separar as palavras 
contidas em uma tinha de texto, essa re- 
tina procura o primeiro caractere nao- 
branco (que nao i um espaijo) a partir 
do caractere 1 da tinha L$. A posi^ao 
inicial da palavra ^ armazenada na va^ 
ridvel L (linha 560). 

Em seguida, a rotina procura o fim 
da palavra: continua a percorrer o tex- 
to at^ encontrar o primeiro caractere de 
espafo. Isso 6 feito pelas linhas 570 a 
600. Note que, para evitar que a liltima 
palavra de um texto se perca, a linha 510 
•da rotina sempre acrescenta um espa^o 
em branco ap6s LS. 

Achado o final da palavra, o sub- 
siring compreendido entre L e I-l (a no- 
va posicao) e copiado em XS (linha 610). 
As linhas 620 a 660 verificam entao se 
a palavra X$ existe no dieionario P$, 
com NP palavras. Se nao existe, a nova 
palavra 6 acrescentada. Antes de voltar 
para a linha 520, para buscar nova pa- 
lavra no texto, a rotina incrementa em 
F a freqiiencia de ocorrencia da palavra. 
A linha de saida, que cont^m o texto 
coraprimido (armazenada em F$), rece- 
be um novo caractere, que corresponde 
ao codigo da palavra no dieionario. Por- 
tanto, uma palavra inteira e substituida 
por um byte. 

Concluindo o programa, as rotinas 
das linhas 690 e 780 colocam as palavras 
do dieionario em ordem alfab^tica, exi- 
blndo-as na tela em grupos de quinze, 
como mostramos a seguir: 

FREQUENCIA DAS PALAVRAS 



UM 


6 


DO 


5 


SUA 


5 



DE 



A 

E 



15 

10 

8 

a 



Observamos no texto-exempio que: 

- as palavras curtas aparecem mais; 

- ha um grande niimero de palavras com 
uma linica ocorrencia; 

- virgulas e outros .sinais sao tratados co- 
mo pane da palavra junto a qual se en- 
contram. 

Com isso, a eficiencia de compressao 
do algoritmo 6 muito baixa: de 1228 ca- 
racteres do texto original, conseguimos 
comprimir apenas 215 caracteres (uma 
taxa de 82,5%); porem, o dieionario 
ocupa outros 870 bytes, dando um to- 
tal de 1085. A eficiencia se reduz, assim, 
a apenas 1 1,6%. 

O algoritmo e mais eficaz quando se 
combinam textos bem tongos e uso de 
um vocabuldrio reduzido. 



DECODIFOCAO 



Para ver como o texto comprimido 
e reconstituido, acrescente a sub-rotina 
de decodificafao: 

140 GOSUB 900 

890 REM - ROTINA DECODIFICACAO 

900 NX-0:FOH 1=1 TO NL 

910 FOR J=l TO LEN[F5(I)) 

920 PRINT " ";P$CASC{MID$(FS(I) 

. J . 1 ) ) ) ; 

930 NEXT J: PRINT 

940 NX=NX+1:IF NX<15 THEN GOTO 

950 
945 NX=0 : INPUT "PHESSIONE <ENTE 
R> ";R$ 
950 NEXT I: RETURN 



140 GOSUB 900 

890 REM - ROTINA DECODIFICACAO 

900 LET nx-OiFOR i-l TO nL 

910 FOR j=l To LEN f S (l ) 

920 PRINT - -jpStASCfFSd. j TO 

J))) ; 

930 NEXT J : PRINT 

940 LET nx-nx+l:lF ax<l5 THEN G 

OTO 950 

945 LET nji=0: PRINT "PRESSIONE < 

Essa rotina funciona de modo opos- 
to ao da de codificagao, mas c bem mais 
simples. Os c6digos armazenados em F$ 
sao recuperados pela funipao ASC da li- 
nha 920, e servem como indice do dieio- 
nario P$ para reconstruir o texto origi- 
nal, Os espa^ros entre palavras sao inse- 
ridos automaticamente. 



pRZTanec 



ROTINASEMCODI 
DE MAQUINA (2) 




ROTINAS NAS LINHAS DATA 



A ESTRUTURA DE 



UMA LINHA 



PEEK E POKE 



ENTENDA COMO FUNCIONA 



A linha DATA i urn excelente lugar 
para se colocar progfamas em linguagem 
de maquina embutidos em urn programa 
em BASIC. Aprenda aqui os truques 
que facititam essa tarefa no MSX. 



Com freqiiencia, armazenamos, em 
algum lugar da mern6na, uma rotina em 
codigo de maquina, um arquivo de pa- 
droes de um desenho ou ate mesmo uma 
composi^ao musical acompanhada de 
instrutoes. Muitas vezes ^ udl Incorpo- 
rar esse arquivg de rotinas a um progra- 
ma em linguagem BASIC. Se colocar- 
mos seus codigos nas linhas DATA do 
programa que os acessa, tornaremos 
bem mais facil o manuseio do sistema, 
viabilizando a obtengao de uma listagem 
completa e evitando repetidas buscas no 
gravador ou no drive, para uma poste- 
rior junfao. Com essas linhas DATA, 
precisaremos apenas acrescemar um la- 
go que, por tntermedio do comando PO- 
KE, carregue uma determinada reglao 
da mem6ria com os dados nela contidos. 



INTROOUCAO DAS LINHAS DATA 



Para apresentar os c6dJgos do arqui- 
vo, o mais conveniente e utiiizar niime- 
ros hexadecimais, que ocupam menos 
espago e reduzem a possibilidade de se 
cometer erros na digitai;ao. Alem disso, 
modo como dispomos os niimeros na 
linha pode facilitar correcoes ou consul- 
tas posteriores — ou seja, a quantidade 
de numeros per linha indica qu€ all se 
encontra um determinado padrao gra- 
fico ou que aqueles c6digos representam 
uma pequena sub-rotina dentro da ro- 
tina principal. 

O programa a seguir ir^ auxilia-lo 
nessa tarefa. Inicialmente, voce ira com- 
plementa-lo com linhas DATA seguidas 
de caracieres que depois serao superpos- 
tos pelo arquivo. E import ante ressal- 
tar que a quantidade de caracteres por 
linha determinard o niimero de c6digo 
nela armazenados. Assim, voce pode 



"moldar" as linhas DATA, dando-ihes 
a aparencia que julgar melhor. Por 
exempio, uma linha do tipo: 

33 DATA XXXXXXXX 

seria transformada em: 

330 DATA A3.F2,01 

Convem, portanto, que voc6 gaste al- 
gum tempo na cria(:ao dessas linhas, se 
quiser uma Ustagem bem organizada. 



RODANDO PROGRAMA 



Apos acrescimo das linhas DATA, 
passamos a execu9ao do programa. Em 
primeiro lugar, ele solicita o endere^o 
inicial do arquivo, pedindo, em segui- 
da, seu comprimento. Depois de Eermos 
digitado essas informacoes, o computa- 
dor pergunta se as linhas DATA jd fo- 
ram introduzidas. Caso isso ainda nao 
tenha sido feito, o programa seri inter- 
rompido. Finaimente, ele pedeo mime- 
ro da primeira linha a ser preenchida. 
Se nao enconirar essa linha, o compu- 
tador interrompera a execugao do pro- 
grama e imprimir^ uma mensagem de 
erro, O mesmo ird ocorrer se a linha in- 
dicada nao contiver o comando DATA. 

fi importante que todas as Hnhas re- 
.servadas'para os cddigos estejam em se- 
qtiencia na listagem — durante a execu- 
(^ao, uma mensagem de erro pdra o pro- 
grama quando o computador encontra 
uma linha que nao seja DATA. 

10 CLS 

20 INPUT"Oijal o endereco do arq 

uivo "jENiPaiNT 

30 INPUT"Qual o comprimento "jC 

0: PRINT 

40 PfiINT"Voce jd introduziu as 

J. jnhaa DATA? B/N ": PRINT 

50 GS-INKE5fS:IF GS = "" THEN GOTO 

50 
60 IF GS = "N" OH {35="n" THEN PBI 
NT "Eu vou oarar o proorama par 
a voce f azeriaso" : STOP 
70 rNPlJT"Qual a primeira linha 
DATA " iLD:PBINT 
80 X= 3 2 7691 

90 IF PEEK(X+2)+256*PEEK(X+3>=-L 
D THEN 1.10 

100 IF PEEK(X)+2S6*PEEK{X+l)-0 
THEN PHINT-Nao achei eata linha 
" :STOP 



110 X=PEEK{X)+256*PEEK{X+1) 

12 GOTO 90 

130 IF PEEK(X-t'4 3<>132 THEN PHIN 

T"E8ta nao i uma linha DhTh" 'PVL 

INT: GOTO 70 

140 X=X+3 

ISO FOfl 1=0 TO CO-1 

160 X=X+3 

170 IF PEEKCX)-0 THEN X-X+5:G0S 

UB 310 

180 IF PEEKCX-I-D-O THEN POKE X. 

32:X=X+6:GOSUB 310 

150 LET A$-HEX3(PEEKCE+I)) 

200 IF LEN(AS)=1 THEN AS^'O'+AS 

210 POKE X.ASC(MID$(A$,1,1) } 

220 POKE X+1 ,ASC{MID$(AS,2.1) ) 

230 IF PEEK(X+2)-0 THEN X=X-1:G 

OTO 270 

240 IF PEEK{X+3)-0 THEN POKE (X 

+2) ,32:G0T0 270 

250 IF PEEK(X-^4)-0 THEN POKE (X 

+2) ,32:POKE (X+3) , 32 : X-X+1 :GOTO 

270 
260 IF IOCO-1 THEN POKE(X+2),4 
4 

270 NEXT I 

280 IF PEEK(X+2}<>0 THEN POKE (X 
+2) ,3Z:X=X+1:G0T0 280 
290 LIST 
300 STOP 

310 IF PEEKCX)<>132 THEN PHINT' 
Faltam linhae DATA"! STOP ELSE K 
-X+2 
320 RETURN 



LEITUfiA DA MEMORIA 



Para entender o funcionamento do 
programa, e necessario conhecer a estru- 
tura de uma linha DATA, ou seja, sa- 
ber como ela 6 armazenada na RAM, 

Ao ligar o computador, digite: 

10 DATA A,B.C 

Agora, para "ler" o que estd escrito 
na memdria, usaremos o comando 
PEEK, que mostra o conteiido de um 
determinado endere?o, Comecaremos 
pelo exame do byte de mimero 32769, 
que cont^m a primeira informagao da 
linha inicial de um programa em BA- 
SIC. Paia isso, digite o comando direto: 

FOB 1-32769 TO 32782 :PHINT PEEK 
(I) i- '; :NEXT I 

VocS deve ter obtido a seguinte se- 
quencia de numeros: 



13 

67 



128 





10 





132 32 65 44 66 44 



l^GR AMACA O BASIC M^ 



ESTRUTURA DA LINHA 



Os dois primeiros numeros referem-se 
ao endereco inicial da pr6xima iinha. Esse 
enderepo e armazenado na forma LH (do 
ingles Low, parte baixa, e High, parte al- 
ia). Pode ser decodificado do seguinte 
modo: 128*256+13 = 32781. O par se- 
guinte equivale ao niimero da Iinha, que 
e armazenado da mesma forma: 
0*256 + 10 = 10. Opr6ximonumero, 132, 
e o c6digo da palavra DATA. 

O MSX atribul um numero — ou to- 
ken (simbolo, indicagao) — a cada pa- 
lavra e caractere reservados. Assim, o 
computador economiza bastante memo- 
ria: em vez de armazenar todos os ca- 
racteres da palavra^ guarda apenas o seu 
token. ^ importante nao confundir os 
tokens com os c6digos ASCII, que re- 
presentam os caracteres comuns. 

O niimero 32, que vem a seguir, e o 
codigo ASCII do espago em branco, que 
separa os dados do comando DATA. Os 
proximos cinco bytes contem esses da- 
dos, que vem separados por uma virgu- 
la (44). O primeiro 0, na seqiiencia, in- 
dica o fim de uma Iinha, e os dois ou- 
tros, o fim do programa. Quando lodas 
as linhas tiverem sido examinadas, os 
dois bytes iniciais apontam para o pri- 
meiro destes dois zeros. 



FUNCIONAMENTO DO PROGRAMA 



Ap6s conseguir as informafoes soli- 
citadas no inicio do programa, o com- 
putador passa ks verificafoes. 

A Iinha 80 inicializa a variavel prin- 
cipal, X, que contem o enderef o do byte 
em estudo. Primeiro, ela assume o va- 
lor 32769, que, conforme vimos, e o en- 
dere^o do byte inicial da primeira Iinha. 
A Iinha 90 verifica o terceiro e quarto 
bytes, obtendo o numero da Iinha. Se es- 
la for a Iinha procurada (a primeira Ii- 
nha DATA), o programa e desviado pa- 
ra a Iinha 130. 

A hnha 100 pesquisa o primeiro e o 
segundo bytes, que contem o enderego 
da prixima Iinha. Se houver um niime- 
ro no lugar do enderego, estamos no 
fim do programa — o que significa que 
a iinha nao foi encontrada. O compu- 
tador imprime entao uma mensagem de 
erro. Caso contrdrio, 6 necessdrio pes- 
quisar a proxima Iinha. Assim, depots 
de atribuir k varidvel X o valor encon- 
trado no primeiro e no segundo bytes (Ii- 
nha 1 10), o programa retorna para a Ii- 
nha 90. Esse lago s<5 ser^ interrompido 
quando a proxima Iinha do programa 
foi localizada ou quando chegarmos ao 
final da listagem. 



Ao encontrar a Iinha indicada pelo 
usudrio, microcomputador verifica se 
se trata de uma Iinha DATA. Para is- 
so, pesquisa seu quinto byte. Se ele nao 
contiver o token correspondente a ins- 
trufao DATA, seri impressa uma men- 
sagem de erro. 



LACO PRINCIPAL 



Feitas todas essas verificagoes, o pro- 
grama inicia o la?o principal, controla- 
do pela variavel I, que coloca os c6di- 
gos de mdquina no programa em BA- 
SIC. Antes, por^m, a Iinha 140 acres- 
centa tres unidades a X, para que, den- 
tro do lago, essa varidvej seja incremen- 
tada em mais tres e aicance o enderego 
do primeiro caractere da Iinha que de- 
veri ser preenchida. 

Primeiro, o iago principal busca o c6- 
digo na regiao da memdria determina- 
da pelo usuario, transforma-o na nota- 
gao hexadecimal (Iinha 190) e o coloca 
sobre os caracteres para os quais reser- 
vamos espago nas linhas DATA (linhas 
210 e 220). Se esse cddigo for inferior 
a 15, sua notagao em hexadecimal tera 
apenas um caractere. Para dar uma me- 
Ihor apresentagao ao programa, a Iinha 
200 acrescentard um ^ direita desse ca- 
ractere. 

As linhas 170 e 180 sao responsdveis 
pela mudanga de Iinha. Se o byte em 
questao contiver o valor 0, um salto se- 
rd necessdrio, pois esse valor indica o 
fim da Iinha. Incrementa-se entao a va- 
ridvel X, de modo que ela aicance o 
enderego do pr6ximo caractere a ser 
superposto por um c6digo, na Iinha 
seguinte. For^m, se o byte posterior a 
este contiver um 0, nao serd possivel 
colocar um codigo na Iinha, por falta 
de espago. Nesse caso, alem do incre- 
mento, & precise imprimir um espago 
em branco sobre o caractere que se en- 
contra no enderego anterior ao 0. Am- 
bas as linhas, antes do salto, utilizam 
uma sub-rotina (Iinha 310) para verifi- 
car se a pr6xima Iinha e realmente uma 
Iinha DATA. 

Convem estar atento para que nada 
seja impresso ap6s o ultimo codigo, pois 
ele deve finalizar a Iinha DATA. Assim, 
quando o codigo ja foi introduzido nas 
posigoes X e X + 1, nao haverd virgula 
se primeiro, o segundo ou o terceiro 
bytes apos ele contiverem o numero 0. 
Nesse caso, alguns espagos em branco 
serao colocados sobre os caracteres ait- 
teriores dqueles bytes. O valor de X tam- 
b^m sofrerd uma pequena mudanga pa- 
ra que, na prdxima volta do lago, o en- 
derego X, incrementado em tres, corres- 
ponds ao enderego de 0, e a Iinha 170 



se encarregue de promover o salto para 
a proxima Iinha DATA, 

Se primeiro, o segundo e o terceiro 
bytes ap6s o codigo nao contiverem 0, 
a Iinha 260 se encarregara de imprimir 
uma virgula. 

Quando o programa sai do lago, a Ii- 
nha 280 limpa a liltima Iinha DATA, 
imprimindo espagos em branco sobre os 
caracteres que ali se encontravam. 

Finalmente, o computador exibe na 
tela a listagem completa, mostrando ao 
usuario os codigos jd incorporados ao 
programa, 

Como estamos fazendo modificagoes 
dentro do programa, convem giava-lo 
antes da execugao. Um pequeno erro de 
digitagao pode provocar um POKE c 
inutilizar o programa. 



LISTA DE TOKENS 



Com OS novos conhecimentos sobre 
a armazenagem das linhas em BASIC, 
voce pode fazer uma serie de experien- 
cias com o comando POKE. Tente, por 
exempio, digitar uma Iinha e mudar o 
seu numero com um POKE no primei- 
ro e no segundo bytes. Lembre-se de que 
primeiro byte do BASIC e o de niime- 
ro 32769. Voce pode tambera "olhar" 
as linhas armazenadas no BASIC recor- 
rendo a alguns comandos diretos, como 
fizemos em nosso exempio. 

Provavelmente, serd litil dispor de 
uma lista dos comandos com seus res- 
pectivos tokens. Para obte-la, digite e 
execute este programa: 

10 E- I 4962 

20 C=65 

30 PBJNT CHES(C) ; 

10 A=PEEK(E) 

&0 B-PEEKtE+]) 

60 A$=CHRS{A) 

70 IF A<128 THEN PBTNT AS ;: GOTO 

110 
80 PBINT CHRS (A-12B) ;TAB(8) iB 
90 E=E+1 

100 IF PEEK(E+1)<>0 THEN PEINTC 
HR$ (C) ; 

110 If'pEEK(E+1)<>0 then 150 
120 C=C+1:IF C=89 THEN 170 
125 BS=CHR$ CO : PRINT 
130 IF B$-"J" OR BS-'Q" THEN 15 


14 PRINT B5i 
150 E=E+1 

160 IF E<=15649 THEN 40 
170 E=15654:PRINT 
180 A=PEEK(E) :B=PEEK(E+1> 
190 IF A>1J!7 THEN PRINT CHHS (A- 
128) ; 
200 IF A<12B THEN PHINT CHRS (A) 

210 PR^^fT TAB (8) :B 

220 E=E+2i PRINT 

230 IF E<15673 THEN GOTO 180 



p 
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syr^.- 








^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 
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Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 
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NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 
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USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 
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LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 
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LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 
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DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 
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MX-2D01 
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Apple 11 + 


Applelt + 


Sycomig 
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MX-48 


Brasii 


Apple 11 + 


Apple 11 + 
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APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 
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Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 
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Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 
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Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 
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Brasll 
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Sinclair Spectrum 
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TK-90X 


Microdigital 
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Sinclair Spectrum 
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Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 
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Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 
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Apple 11 + 


Sinclair ZX-81 
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NEZ-8000 
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Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 
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TK-82C 
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MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 
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TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 
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TK-85 


Polymax 


Maxxl 


Brasll 
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CP-200 
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Poly Plus 
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Apple 11 + 


Sinclair ZX-81 
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Sinclair ZX-SI 


Sinclair ZX-81 
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Apple Me 
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Spectrum 


Spectrum ed 
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Apple H + 
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NajaSOO 
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Apple 11 + 


TRS-80 Mod.lH 
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CP-300 
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SICI 
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Apple 11 + 
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Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 
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Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 
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Sysdata 
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Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 
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Timex 2000 
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TRS-Color 


Dynacom 


MX-1600 
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Apple 11 + 
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LZ 


Color 64 


Victor do Brasll 
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Brasll 


Apple 11 + 
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TKS-800 
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Brasll 


Apple 11 + 
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microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 
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.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 
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progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 
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■Ui TRS-Color L 


■LI Apple II 



Di^rio de Anne Frank 
emodonou milhoes. 
E 



erasouma 



parte da 
histork 



A" 



mne Frank e lembrada 
como si'mbolo do 
extermi'nio de milhoes de 
judeus. Seu drama e o de sua 
familia sao vistos agora 
de um angulo diferente, o 
da mulher holandesa que 
ajudou OS Frank durante os 
dois anos que passaram 
escondidos dos nazistas num 
sotao de Amsterda, e que 
se tornou o linico elo entre 
eles e o mundo exterior. 
E com tocante simplicidade 
que esta historia triste 
— o "outro lado" do Didrio 
de Anne Frank — e contada 
neste livro, poderoso 
testemunho da coragem de 
que e capaz o ser humano, 
mesmo nos momentos sombrios 
da Historia. 
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ANNE 
FRANK 

O outro lado do Diario 

MIEP GIES 

E ALISON LESLIE GOLD 

A hist<5ria da mulher que ajudou 
a esconder a familia Frank 
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tAagnificamente escrito por uma pessoa devotada ao ser 
humano. Seu estilo simples cativa o leitor. Um limo recomenddvel 
aos que se preocupam com os rumos do mundo! ' 



Isaac Bashevis Singer, Premio Nobel dc Litcratura de 1978 



<bJD 



EDITORA BEST SELLER 



